Le deuxième chapitre présente tous les concepts de base du langage, et 
vous permettra de vous familiariser avec le dictionnaire, les vocabulaires, Ja 


notation polonaise et l'utilisation des piles. 


Dans le troisième chapitre, nous entrons dans la partie technique de pro- 
grammation où vous apprendrez à définir des mots et à les exécuter, en utili- 
sant toutes les structures de contrôle qui vous sont fournies dans le FORTH de 


base. 


L'objet du quatrième chapitre est de vous présenter deux vocabulaires 
classiques : l'EDITEUR et l'ASSEMB LEUR. 


Le chapitre cinq, quant à lui, va vous initier à la mécanique de fonctionne- 
ment des langages tissés. La lecture de ce chapitre s'adresse à des lecteurs 
non débutants en FORTH, car il est souvent fait appel à des références au lan- 
gage lui-même. D'une bonne connaissance de ce fonctionnement on pourra 
tirer une meilleure qualité des programmes, et une utilisation optimisée des 
outils. 


Le chapitre six présente tous les outils de haut niveau dont FORTH est 
muni. Définir de nouvelles structures de données adaptées aux problèmes à 
résoudre, et de nouvelles structures de contrôle, voici quelques exemples d'ap- 
plication de ces mots dits de haut niveau. 


Au cours du chapitre sept, nous nous intéresseront de près à certains 
aspects de FORTH: Vocabulaires, Segmentation, Recursivité, Multitasking. 


Un recueil de problèmes avec leur solution commentée se trouve dans le 
huitième et dernier chapitre. 
A la fin de chaque chapitre, le lecteur trouvera un tableau récapitulatif de 


tous les mots nouvellement rencontrés, ainsi qu'une sélection d'exercices 
simples, destinés à mettre immédiatement en pratique les nouvelles notions 


acquises. 
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FORTH est l’œuvre d’un seul homme : Charles H. MOORE. Sa pre- 
mière implantation complète a été effectuée sur un IBM 1130 à l’époque des 


Nous n'oublierons pas Jean-Michel BARNAY pour son dénigre- ordinateurs de troisième génération (fin des années 60). 


ment systématique, ainsi qu'EDITH pour son Chili con carne et | 

NICOLE pour son soutien dactylographique. | Le résultat de son travail fut suffisamment satisfaisant pour que 
| MOORE n'hésite pas à l’appeler langage de quatrième génération: 

FOURTH. Malheureusement, l’IBM 1130 ne tolérait que des noms de pro- 

gramme de cinq lettres, ce qui a décidé du nom définitif du langage: 

FORTH. 


Les Auteurs 


Après avoir testé plusieurs parties de FORTH sur différentes machines 
(Burroughs 5500, IBM 360) et en différents langages (ALGOL, COBOL), 
FORTH a été codé en FORTRAN avant de l’être en ASSEMBLEUR, puis 
en FORTH. 


La première application de FORTH a été la programmation d’un ter- 
minal graphique IBM 2250 connecté à un IBM 1130. | 

Un programme FORTRAN de 32 Koctets permettait de tracer de 
modestes graphiques plans : une application FORTH de 8 Koctets fournis- 
sait des dessins tridimensionnels en mouvement ! 


La première application professionnelle (1971) développée en FORTH 
par Charles MOORE a été un problème d’acquisition de données de radio- 
téléscope au National Radio Astronomy Observatory sur un 
Honeywell 316. Cette application a ensuite été reprise au NRAO de Kitt 
Peak (Tucson) sur un PDP 11. Ce radio-téléscope à ondes millimétriques a 4 
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permis au CUurS ues dix ucrinères annees Ge uEcCOUViu 14 MOI ES Tuiviv- 
cules interstellaires connues. 


En 1973, Charles MOORE crée sa société de développement de logi- 
ciels FORTH : FORTH Inc. 


Le marché de l’astronomie étant trop limité, d’autres applications ont 
été vite mises au point: 


— MiniFORTH: FORTH pour mini-ordinateur. 

— Multiprogrammation en FORTH. 

— Système de gestion de bases de données en FORTH. 
— PolyFORTH: un ” super ”’FORTH. 

— MicroFORTH: FORTH pour micro-ordinateur. 


En 1976, un comité de l’International Astronomical Union adopte 
FORTH comme standard de langage de programmation pour l’astronomie. 


Le nombre des adeptes de FORTH dans la communauté informatique 
mondiale va croissant de jour en jour. Ce phénomène a suscité la création 
d’un FORTH Interest Group aux États-Unis dont la vocation est de faire 
connaître ce langage. C’est par exemple lui qui distribue la norme choisie 
par l’International FORTH Standard Team (La dernière norme date de 
1979). 

C’est cette norme qui constitue le noyau de la plupart des FORTH 
commercialisés et qui permet la transportabilité des logiciels. 


Dans l’industrie de la programmation, un nouveau langage n’aura une 
chance d’être adopté que s’il apporte des solutions aux problèmes de la 
réduction des coûts et de la fiabilité (au sens large) des logiciels. L’expé- 
rience a montré que l’esthétique ne peut être retenue comme critère de choix. 

Le développement frénétique de la micro-informatique et la chute con- 
tinue des coûts de production des matériels, font que les constructeurs cher- 
chent à implanter des logiciels de base modernes, performants et faciles à 
utiliser pour un coût aussi faible que possible. 


Actuellement, PASCAL répond à ces exigences mais nécessite une 
configuration assez lourde (48 Koctets + mémoire de masse) pour un bud- 
get grand public. 


Dans le domaine professionnel, on attend de l’informatique la résolu- 
tion de problèmes souvent très complexes. Les langages de programmation 
utilisés jusqu’à maintenant imposent des coûts de développement et de tests 
tels que l'investissement et le plan informatique peuvent être remis en cause. 


Pour juger de l’avenir d’un nouveau langage de programmation, il ne 


"1 faut pas juger simplement sur les aspects techniques, mais en termes de mar- 
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porte à croire qu’il résout efficacement les problèmes de tout ses utilisateurs 
actuels dont la population ne cesse de croître. 


Les constructeurs quant à eux adoptent de façon de plus en plus systé- 
matique FORTH comme langage de base sur leur matériel. Quelques 
machines ont même été conçues pour FORTH. Dans certains secteurs d’ac- 
tivité (ludotique, astronomie, etc.) FORTH est devenu l’outil privilégié de 
développement. 


FORTH ne s'inscrit pas dans la philosophie des langages tradition- 
nels, il est donc intéressant de situer ses caractéristiques par rapport à ces 
derniers. 


1.2. FORTH ET LES LANGAGES 
INFORMATIQUES TRADITIONNELS 


Un langage informatique n’est qu’un outil comme un autre, et doit 
donc être fonctionnel. 


Un bon outil doit être facile à utiliser. Par exemple le grand succès de 
BASIC tient à des raisons pédagogiques : aucune connaissance théorique 
n’est indispensable. 


Notre objectif dans cet ouvrage est de vous montrer que l’apprentis- 
sage de FORTH est à la portée de tous: 


— Ja syntaxe est simple et non contraignante, 


— l'utilisateur définit ses propres mnémoniques et choisit donc son 
vocabulaire de dialogue avec la machine. : 


Pendant le développement d’une application, il est agréable d’avoir un 
contrôle permanent de la syntaxe, c’est la raison d’être des interpréteurs. Cet 
agrément se paie au niveau du temps d’exécution. L'idéal serait d’avoir la 
vitesse d’exécution d’un langage compilé et l’aide au développement d’un 
interpréteur. 


FORTH réunit ces deux qualités en étant un langage semi-compilé, 


Les langages évolués n’offrent jamais d'outil de manipulation de 
données au niveau du bit en mémoire. C’est une des raisons qui oblige à 


écrire des modules externes en assembleur. Bien qu’étant un langage de haut 


niveau le FORTH standard permet ces manipulations de données. II peut 
inclure un vocabulaire spécialisé ASSEMBLEUR qui permet d’utiliser des 
mnémoniques assembleurs tout en restant en FORTH. Certaines machines s 


permettent de faire appel à des rontines ascembleur dans ur rragramme 
ecrit dans un langage évolue, mais ces routines doivent être développées 
séparément et doivent être résidentes en mémoire au moment de l’appel. 


Ce qui caractérise la génération d’un langage informatique de haut 
niveau est la présence ou l’absence de structuration. Les structures de con- 
trôle sont indispensables à une programmation éclairée. C’est paradoxale- 
ment la grande lacune des langages les plus répandus comme COBOL, 
FORTRAN, BASIC. 


Comme avec PASCAL, FORTH offre les structures de contrôle clas- 
siques du type BEGIN ——— WHILE ——— REPEAT. II va même beaucoup 
plus loin puisqu'il permet à l’utilisateur de créer ses propres structures de 
contrôle et de données. 


On n'’insistera jamais assez sur l’importance des structures de données 
dans la programmation. Une bonne analyse de problème ne fait que dégager 
parmi un ensemble de données en vrac, des caractéristiques de structures et 
de gestion de ces structures. 


Les langages traditionnels n’offrent au programmeur qu’une liste figée 
de structures de données possibles et son problème sera donc de faire Île 
choix le moins mauvais pour se rapprocher des structures naturelles issues 
de son analyse. 


Le défaut classique des analystes est de raisonner par rapport à leur 
langage de travail et de ne plus savoir extraire les structures naturelles. 


Le conflit structures de données / langage a été apaisé provisoirement 
avec l’apparition des systèmes de gestion de base de données. Ils permettent 
d'entretenir des structures complexes de données mais sont généralement 
autonomes. Les interfaces avec les langages, lorsqu’elles existent, sont très 
lourdes à manipuler et le programmeur est contraint à passer plus de temps 
à préparer et à contrôler les accès qu’à traiter effectivement les données. 


En FORTH, les structures de données naturelles extraites de l’analyse, 
quelqu’elles soient, pourront être implantées directement et le programmeur 
se construira tous les modes d’accès et de contrôle de cohérence qu’il juge 
nécessaire. 


FORTH est un langage adulte, ce n’est pas lui qui vous impose une 
liste de contrôles, dont l’expérience a montré qu’elle était toujours insuffi- 
sante. [1 laisse le programmeur seul juge et responsable du niveau de sécu- 

_rité à apporter au logiciel. 


Il est enfin possible de créer des applications à sécurité totale. 
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FORTH, aussi bizarre que cela puisse paraître pour les non initiés, 
peut être écrit en FORTH pour sa quasi-totalité. La faible taille du noyau 
actif qui doit être écrit dans un langage déjà implanté, (moins de cent lignes 
d’assembleur par exemple), permet à toute personne bien imprégnée de la 
philosophie FORTH de développer seule un FORTH standard. 


Sa méthode de travail et les problèmes qu’elle sera amenée à résoudre 
seront identiques à ceux de toutes les applications qu’elle souhaitera déve- 
lopper ultérieurement en FORTH : il n’y a pas de discontinuité entre la créa- 
tion et l’utilisation de FORTH. Nous espérons que vous-même aurez pris 
suffisamment goût à cette nouvelle philosophie conviviale pour implanter 
FORTH sur votre machine préférée. 


Nous allons maintenant vous fournir une liste des implantations de 
FORTH. Celle-ci n’a pas la prétention d’être exhaustive. Nous venons en 
effet de voir que l’implantation du langage était un problème simple à 
résoudre, et tout à fait à la portée d’un seul programmeur. Ceci rend impos- 
sible le suivi des différentes implantations réalisées. 


Nous désirons seulement vous faire percevoir l’éventail des matériels 
actuellement atteints par cette nouvelle philosophie. 


— Les micro processeurs 8 bits 


e Intel : 8080, 8085, 8088 
e Zilog : Z80 

e Motorola : 6800, 6809 
e RCA: 1802 

e Rockwell : 6502 


— Les micro processeurs 16 bits 


e Intel : 8086, IAPX 186, IAPX 286 
e Zilog : Z 8000 

e Motorola: 68000 

e Digital Equipement : LSI 11 

e Texas Instruments : 9900 


— Les micro-ordinateurs 


e APPLEÏII 
e HP 85, HP 9826, HP 9836 | 
e TRS 80 ei 


23. 

Atari 800 

Commodore VIC 20 
Panasonic HHC 

PET 

IBM Personal Computer 
Heathkit 89 / Zenith 89 
Northstar 

Cromenco 

Jupiter Ace 

SMS 300 

Goupil 


— Autres ordinateurs 


PDP 11, PDP 10, PDP 8 
NOVA 

HP 2100 

Burroughs 5500 

IBM 360, IBM 1130, Serie 1 
Univac 1108 

Mod-Comp II 

CDC 6400 

Interdata 

Illiac 

Honeywel 316, MINI 6 
Varian 620 

GA SPC-16 

Phase IV 

e Computer Automation LSI 4 


1.4. QUELQUES APPLICATIONS 


FORTH est très utilisé dans les effets spéciaux cinématographiques. À 
ce titre, la société Elican Inc (Brea - CA) emploie maintenant FORTH pour 
commander les systèmes de caméra du type de celles utilisées pour le film 
Star Wars. Ce système a de plus été utilisé par New World Productions 
(Venice - CA) pour le tournage du film Battle Beyond The Stars. Citons 
aussi la société Magican Inc, qui a réalisé les effets spéciaux de Star Treck, 
et qui est maintenant équipée de FORTH. 


Evuu resté uans le uvulainé ucs APPuvauOns uivertissanres ?, cuis 
l'expérience d’Atari, qui a développé un système de tests pour les jeux élec- 
troniques de café utilisant FORTH sur un microprocesseur 6502. Les nou- 
veaux jeux de ce type apparaissant sur le marché fonctionneront sans doute 
très prochainement en FORTH. De plus, Atari développe ses jeux person- 
nels en FORTH, et offre d’ailleurs sur son micro-ordinateur personnel 
Atari 800 une version de FORTH appelée Game FORTH. 


Le fameux hôpital Cedar Sinai Medical Center de Los Angeles utilise 
FORTH sur un PDP 11/60 pour accomplir simultanément les tâches 
suivantes : 


— gestion de 32 terminaux, 


— acquisition de données sur les patients à l’aide d’un lecteur optique, 
et classement des informations dans une importante banque de données, 


— traitements statistiques sur cette banque de données, 


— analyse en temps réel des échantillons sanguins et des informations 
cardiaques d’un patient. 


De plus, cet hôpital développe actuellement un système portable de 
surveillance des malades, à l’aide d’un micro-processeur 6809, toujours en 
FORTH. 


Le traducteur de poche CRAIG M100, qui offre la possibilité de tra- 
duire entre elles une vingtaine de langues, suivant le module choisi, a été 
développé en FORTH. 


Dans le domaine des applications spatiales, nous en citerons deux, en 
plus des radio-télescopes dont nous avons déjà parlé. 


Une version spéciale de FORTH, appelée IPS, est utilisée dans un 
satellite de radio amateurs : OSCAR Phase III. 


La société Avco Inc. utilise FORTH sur un 1802 pour la surveillance 
des températures sur un satellite militaire ainsi que pour les échanges de 
données télémétriques. 


Encore une fois, cette liste n’est en aucun cas exhaustive. Elle présente 
seulement l'intérêt de faire percevoir la diversité des applications de 
FORTH (Gestion, contrôle de processus, calcul scientifique, etc). 
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PRÉSENTATION DU 


LANGAGE . 


Considérons le cas de Monsieur J-M B intéressé par la micro infor- 
matique, qui vient d’acquérir un micro-ordinateur personnel, et qui découvre 
pour la première fois un langage de programmation évolué du type BASIC. 


Il est fort probable que les premiers pas dans le logiciel de Mon- 
sieur J-M B se traduiront par des programmes labyrinthes, pavés compacts 
d’instructions enchevêtrées. Pour la mise au point, il aura selon toute vrai- 
semblance fait appel à des outils type TRACE, qui seuls peuvent lui donner 
une chance de suivre le déroulement de ses exécutions. 


Monsieur J-M B comprendra très vite que cette méthode instinctive de 
programmation est inadaptable aux problèmes complexes, et ne peut fournir 
que des produits à courte durée de vie, toute retouche ultérieure se révélant 
plus longue que la réécriture complète du logiciel lui-même. 


Les torts de Monsieur J-M B sont manifestement de ne pas avoir 
entrepris une analyse descendante poussée, et d’avoir improvisé face aux cas 
non prévus. 


Il ne faudrait pas croire que Monsieur J-M B est le seul responsable 
de ses errements. Les langages classiques encouragent une programmation 
au coup par coup, prônant les branchements comme issue universelle aux 
mauvaises surprises inévitables après une analyse insuffisante. 


Monsieur B L a une expérience plus longue de la programmation 
pour des raisons professionnelles. Il a déjà surmonté les problèmes de Mon- 
sieur J-M B, et a su dégager une méthodologie. 


Il analyse les problèmes en profondeur, sait dégager les structures de 
données, et découpe sa programmation en blocs indépendants. Il relie enfin 
ces blocs entre eux grâce aux structures de contrôle dont il dispose. 
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Il rencontre moins de nroblèmes de mise au print et dnrnments cree 
travaux Car il sait prévoir des modifications ultérieures. 


Ses compétences sont reconnues, mais tout problème nouveau l’oblige 
à repartir d’une mémoire vierge. Il sait dégager des blocs, mais ne sait pas 
faire le rapprochement entre blocs de même nature, pour construire les 
modules à usage général. 


Les temps de développement restent longs, car il ne sait pas avoir une 
approche globale des problèmes et se doter d’outils réutilisables. 


Monsieur G M, quant à lui, a oublié son passage par ‘les étapes 
J-M B et B L. Il se refuse désormais par paresse à entreprendre un pro- 
grammation fastidieuse. Sa force et son efficacité résident dans le fait qu’il 
sait généraliser ses procédures pour pouvoir les réemployer aisément et à 
bon escient lors d’analyses nouvelles. 


Il souffre toutefois de ne pouvoir les intégrer dans la bibliothèque du 
langage, afin de rendre leur emploi encore plus immédiat. 


Son rêve serait d’avoir la possibilité d’étendre son langage de travail en 
fonction de l’application. 


11.1. PREMIER CONTACT 


11.1.1. Concept de MOT. 


Jusqu’alors, le programmeur devait se soumettre aux contraintes du 
langage avec lequel il communiquait en lui proposant des instructions. 


Avec FORTH, il peut enseigner son langage à la machine : le dialogue 
s’instaure enfin. 


Un programme traditionnel consiste en un enchainement d'instructions 
cataloguées. 


En FORTH, le dialogue avec la machine se fait en lui communiquant 
des suites de mots. L'utilisateur peut décider de donner un nom à une suite 
quelconque de mots que la machine reconnaïtra alors comme nouveau mot 
du langage. 


Il va de soi que FORTH reconnait déjà une liste importante de mots 
effectuant aussi bien des actions élémentaires que des tâches élaborées. 


La notion de programme, et celle d'instruction, n’existe plus. Le travail 
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nissant de nouveaux mots à partir des mots connus de la machine. 
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11.1.2. Concept de DICTIONNAIRE. 


Comme l'être humain, la machine dispose d’un dictionnaire qu’elle 
enrichit par l’apprentissage de nouveaux mots. 


Comme dans toutes les langues, un dictionnaire est un objet amorphe 
et volumineux. Il est naturel de l’organiser en vocabulaires de mots ayant 
des traits communs, libres et subjectifs. Pour vous en convaincre, essayez 


d’extraire rapidement d’une encyclopédie en vingt volumes tous les mots 


ayant trait à l’Informatique... 
FORTH offre cette possibilité de raisonner en termes de vocabulaires. 


Lorsque la machine se voit proposer un mot, elle va chercher à savoir 
si elle le connait en explorant le vocabulaire que vous avez choisi. 


Tout apprentissage se fait bien sûr à partir des connaissances acquises, 
ce qui signifie que pour apprendre un mot nouveau à votre machine, vous ne 
pourrez utiliser que des mots qu’elle connait déjà dans le vocabulaire de 
travail. 


L'apprentissage terminé, la machine possède alors une définition du 
nouveau mot à laquelle elle se référera. | 


Par abus de langage, nous appellerons également définition cette phase 
d'apprentissage. 


Bien entendu, il peut vous arriver de changer d’avis et de redéfinir un 


mot existant. Lorsque FORTH a besoin de reconnaître un mot, il se référera 


toujours à la définition la plus récente qu’il en connait. 


Toute nouvelle définition d’un mot ne sera pas prise en compte par les 
mots qui faisaient appel à l’ancienne définition de ce mot. 


Exemple : Le mot POLITESSE est défini à l’aide du mot BONJOUR. 
Le mot SALUTATION est défini à l’aide du mot 
POLITESSE. 


SALUTATION utilise donc indirectement le mot BONJOUR. 
Si le mot POLITESSE est redéfini avec le mot AU-REVOIR, le mot 


SALUTATION continuera tout de même à utiliser l’ancienne version de AA 


POLITESSE, et donc le mot BONJOUR. 


INOUS dVOIIS LEHU d SIBIIQIELI LUUL UE SUILE CE qui pEUL appal ditié COUIIIE 
uu Pr'éhuu VbStavic au deuuant eu  URTi:, uu fait ue 54 Cüiuic Infüinia- 
tique classique. Mais nous verrons que non seulement ce problème est très 
facilement soluble, mais que de plus la philosophie du FORTH peut en faire 
un avantage. 


. 


Baptême de Pair : 


Parmi les mots de base, FORTH offre la possibilité d’effacer les der- 
niers mots définis: c’est le mot FORGET. 


Exemple : Supposons que les mots HEURE, MINUTE et SECONDE soient 
dans l’ordre les derniers définis. 


La syntaxe : FORGET HEURE/Return/OK 


effacera le mot HEURE du dictionnaire, ainsi que tous les mots définis pos- 
térieurement à HEURE, c’est-à-dire les mots MINUTE et SECONDE. 


Exemple : C’est toujours la dernière définition du mot qui suit FORGET qui 
sera prise en compte. 


Ainsi si l’on définit successivement HEURE, MINUTE, SECONDE, 
puis à nouveau HEURE, 


FORGET HEURE |Return|OK 
ne supprime que la dernière définition de HEURE. 


11.1.3. Définition d'un MOT. 


En FORTH, tous les mots doivent être séparés par un espace blanc: 
c’est l’unique séparateur. 


Toute définition simple de mot commencera par le mot: (c’est le signal 
de début d’apprentissage), suivi du nom du mot que l’on définit, et se termi- 
nera par le mot; (c’est le signal de fin d’apprentissage). 


Exemple: Reprenons l’exemple précédent. Il s’écrit : 
: POLITESSE BONJOUR: [Return] OK 
: SALUTATION POLITESSE : |Retum|OK 


Le mot FORTH ( indique que le texte qui suit est un commentaire, qui 
se terminera avec le caractère }). Les commentaires peuvent apparaître à tout 
moment dans le dialogue: en cours de définition ou non. 
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(  oter: tde que ise € ze d te es e du de 
la nature du séparateur. 


Exemple: Les deux définitions suivantes sont équivalentes : 
: TOTO TITI TATA ; OK 


: TOTO ( Définition du mot TOTO) 
TITI ( Action … | 


TATA ( Action … ) 
: (Return) OK 


11.1.4. Les objets du FORTH. 


En FORTH, les données manipulées peuvent être des variables, des 
constantes, ou des constantes immédiates. Précisons tout de suite que ces 
objets sont de nature différente à l’intérieur même de la machine. Ainsi la 
valeur d’une constante n’est pas modifiable de façon immédiate. 


Pour déclarer et initialiser une variable, la syntaxe est la suivante: 
Valeur VARIABLE nom de la variable 

Pour les constantes. la syntaxe est similaire : 

Valeur CONSTANT nom de la constante 

Les constantes immédiates sont des valeurs numériques volatiles. 


Nous verrons plus loin la manipulation de ces objets. Notons cepen- 
dant tout de suite que le FORTH n'est absolument pas figé sur les structures 
de données. Nous expliquerons à quel point la définition de structures telles 
que les chaînes de caractères, les matrices, ainsi que de toutes les structures 
personnalisées est aisée et rapidement mise en œuvre. 


11.1.5. La structure de pile LIFO. 


FORTH est construit autour de deux piles: La pile de données 
(DATA STACK) et la pile de retour (RETURN STACK). 


Cette notion de pile est fréquemment rencontrée dans la vie courante. 
Ainsi une pile d’assiettes qui n’est alimentée que par le haut présente une 


structure telle que la première assiette posée sera la dernière retirée, et qu’in- 


versement la dernière assiette posée sera la première retirée. 


C’est précisément cette dernière caractéristique, à savoir que le dernier À 3 


se et … prel 2 sort, .-ast ]:24:rst GC... qui =.nt ls actu 
donnée dite de pile LIFO. 


Bien que transparente pour l’utilisateur, cette structure est utilisée dans 
la résolution de nombreuses fonctions de base des ordinateurs : calculs d’ex- 
pressions arithmétiques, appels de sous-programmes, analyse syntaxique, 
CIC 


L’implantation d’une structure de pile dans une machine se fait de la 
manière suivante : | 

Les informations sont enregistrées séquentiellement à partir d’une 
adresse donnée qui est conservée dans un registre particulier. Les ajouts et 
suppressions se font par rapport à une autre adresse spécifiée dans un 
deuxième registre particulier qui fournit en permanence la première cellule 
disponible : C’est le pointeur de pile. 

Ces deux registres sont initialisés à une même valeur. La condition 
d'égalité correspondra toujours à une pile vide. Il est facile d’en contrôler 
l'expansion en fixant sa capacité dans un troisième registre particulier. La 
condition d'égalité entre le pointeur de pile et ce troisième registre corres- 
pondra à une pile pleine. 


L'utilisateur peut très facilement empiler puis dépiler des données 
manuellement dans la pile de données. Par exemple, le mot . extrait le 
sommet de cette pile et l’affiche à l’écran. 


Ainsi, vous pouvez exécuter: 
12 |Return) OK 
24 |Return| 


33 (Return) 


R 1x 
A |A 


Puis : 
Return]33 OK 
Return 24 OK 
Return) 12 OK 
Les données ont bien été reproduites dans l’ordre inverse de leur 
introduction. 


L’exécution d’un point supplémentaire provoquera l’apparition d’un 
message d’erreur signalant que la pile de donnée est vide. 


Ce...ent p.….ant «....quer … linte, bi tOUT ur u2CePir as MOrs 14, 
24 et 33 qui n’ont jamais été définis ? 


Revenons pour un instant sur la mécanique de l’interpréteur. 


Il entre en activité dès que vous avez pressé la touche Return, et 
analyse le contenu de votre phrase. Il isole facilement les mots grâce à la 
présence du séparateur blanc. Chaque mot donne lieu d’abord à une 
recherche dans Île dictionnaire. S’il est trouvé, la machine effectue le traite- 
ment nécessaire. 


Ici, par contre, 12 ne figure pas dans le dictionnaire. L’interpréteur va 
donc maintenant tenter de l’identifier à une constante immédiate, c’est-à-dire 
un nombre exprimé dans la base courante. Notons en effet que FORTH est 
capable de travailler dans une base quelconque, comme nous le verrons plus 
loin. Si le nombre est valide, il sera placé au sommet de la pile, sinon un 
message d’erreur apparaîtra. 


11.1.6. La notation polonaise inversée 


Présentation 


Lorsque vous utilisez votre calculette, les opérations sont directement 
exécutées dans l’ordre et au fur et à mesure de l’introduction des données. 


Aïinsi:1+2%3 vaudrag. 


Si vous voulez lui faire effectuer 1+(2*3), vous devrez nécessairement 
modifier l’ordre d’introduction et taper : 


2*x3+1, ce qui donnera bien cette fois 7. 


C’est donc l’ordre d’introduction qui conditionne le résultat du calcul, 
les opérateurs étant tous banalisés. 


Sur un ordinateur, la méthodologie est différente. Il n’interprète vos 
commandes qu’à la réception d’une marque de fin, par exemple le fait de 
presser la touche Return. Il analyse alors l’expression, et peut l’exécuter 
dans un ordre non séquentiel. 


Si on tape A+Bx*C, la plupart des langages effectueront d’abord B#C, 
puis ajouteront A. On leur a en effet enseigné une hiérarchie des opérateurs. 
L'ordre classique des opérateurs courants est le suivant: 


Tout est donc fort logique. .” (Puissance), — (Négation), « et /, + et —, … / D 


T4 


À 6 


Cest l’ordre ceanentiel da sauce droit 4<ns lev--2ssic- ii 
regit les opérateurs de même niveau. 


Cette hiérarchie pose un problème si l’on veut faire exécuter d’abord 
un opérateur de priorité inférieure. Par exemple, si dans A+BxC on souhaite 
additionner A et B d’abord, puis multiplier le résultat par C. C’est la fonc- 
tion des délimiteurs ( et ). 


Il faudra donc écrire (A+B)*C. 


L’automate de reconnaissance est alors plus élaboré, et les manipula- 
tions deviennent plus complexes. 


Notation polonaise 


Imaginons une notation qui ne modifie pas l’ordre des opérandes, et 
dont l’exécution est toujours déroulée de gauche à droite. Ce sens gauche - 
droite a été choisi arbitrairement. 


Un tel type de notation permettrait : 
— d'éliminer les hiérarchies, donc les parenthèses, 


— de réduire l’automate à la simple reconnaissance des opérandes et 
des opérateurs. 


Le principe de lexécution serait alors le suivant : 


— tous les opérandes sont mémorisés au fur et à mesure de leur 
rencontre, 


— les opérateurs sont exécutés immédiatement. Ils opèrent sur les 
deux derniers opérandes mémorisés, qui sont alors détruits, et le résultat est 
rangé en mémoire comme un nouvel opérande. 


Cette gestion des opérandes s’inscrit parfaitement dans la structure de 
pile LIFO décrite précédemment. 


Notons que tous les interpréteurs arithmétiques classiques mettent tou- 
jours les expressions sous cette forme avant de les exécuter. 


On convient de noter T l’opération d’empilage et L l’opération de 
dépilage. 


Exemple: 


A+B, noté À B + s’exécutera comme suit: 


A: T 
B: ? 
+: | L(A+B)T 
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(A+B}C, noté À B + CL *, s’executera: 


A: T 

B: ? 

+: | L(A+B)T 
CT 

*: | L(A+B)xCT 


A+BxC, noté À B C *x + , s’exécutera : 


A: T 

B:- ? 

CS T 

x: | L(BxC)7T 

+: | L A+(B«C)T 


On remarque qu’il y a toujours un empilage de plus que de dépilages, 
puisque le résultat final restera sur la pile. 


Opérations arithmétiques 


Sur votre terminal FORTH, vous pouvez appliquer tout de suite les 
notions qui viennent d’être présentées. 


Tapez : 
12+  [Retum)OKk 
Puis, pour afficher le résultat : 


Return|3 OK 


N'oublions pas que tous les opérateurs arithmétiques sont des mots 
FORTH au même titre que les autres. À partir de maintenant, nous ne par- 
lerons donc plus que de mots arithmétiques. Rappelons que ceux-ci vont 
toujours chercher leur opérandes sur la pile, et y rangent leurs résultats. 


11.1.7. Les conventions de notation 


Dialogue avec la machine 


Toutes les touches de contrôle sont représentées dans un encadrement, 
par exemple: | 


Toutes les réponses de la machine seront soulignées. M1 


D s,F  ‘“Hr _lam … àlu teur … affic.. OK. 
Représentation de la pile 


On représente la pile entre parenthèses, en figurant de gauche à droite 
les données dans leur ordre d’entrée, suivies de ———. 


Par exemple, après avoir effectué : 
1. [Return] OK 
CR ACUUELS 


On représentera la pile comme suit: 


(12———) 


Représentation de l’action des mots FORTH sur la pile 


On figure, entre parenthèses et séparés par ———, les paramètres sur la 
pile utilisée par le mot, et ceux éventuellement retournés après exécution. 


Exemple: + (n1n2—-——-n1+n2) 


He) 


11.1.8. La semi compilation 


Approche interprétée 


En mode interprété, les lignes de programme sont immédiatement ana- 
lysées. Les mots clés, une fois reconnus sont remplacés par leur codes 
(Tokens). 


À l'exécution, lorsqu'un de ces tokens est rencontré, le programme le 
recherche dans une table qui lui fournira l’adresse du code exécutable 
correspondant. 


Approche compilée 
L'utilisateur rédige d’abord le texte de son programme sous un éditeur. 


Il appelle ensuite le compilateur qui fait une analyse globale du texte, 
et remplace directement les mots clés par du langage machine directement 
exécutable. 
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2 -ppro T5 © semi .vs-iPilé. 
Le programmeur dialogue ligne par ligne avec un interpréteur. 


Ce dernier remplace les mots-clés, non pas par des tokens, mais direc- 
tement par l’adresse de l’exécution du mot clé en question. 


Cette dernière solution concilie les deux aspects précédents, souplesse 
de programmation, et rapidité d’exécution. 


La semi-compilation existe dans la plupart des langages. Cependant 
ceux-ci ayant une bibliothèque de mots clés figée, les programmes sont 
nécessairement verbeux, l’utilisateur n’ayant qu’une gamme finie d’outils à 
sa disposition. 


En FORTHI, l’extensibilité du langage permet de définir des mots com- 
pacts et optimisés, et la semi-compilation trouve alors toute sa puissance. 


11.2. LE VOCABULAIRE FORTH 


Comme tout vocabulaire, le vocabulaire FORTH contient la liste des 
mots FORTH. Il n’y a pas de classement selon un critère de tri particulier, 
les mots étant simplement rangés dans leur ordre chronologique de création. 


Le dictionnaire, qui regroupe tous les vocabulaires, présente une struc- 
ture classique de liste chaïnée. 

Chaque mot est représenté par son nom, une série de pointeurs, et sa 
définition semi-compilée. 

Citons déjà le pointeur de lien, par l’intermédiaire duquel s’effectue la 
recherche d’un mot dans le vocabulaire. Il contient pour chaque mot. 


l’adresse du mot précédent dans la liste. Pour le premier mot défini, ce poin- 
teur contient la valeur zéro. 


Il est également nécessaire de mémoriser l’adresse du dernier mot créé. 
Toute recherche s’effectue en partant de ce mot vers le premier défini. 


Exemple : 


Le mot VLIST permet d’obtenir la liste exhaustive des mots du voca- 
bulaire de travail, pour l’instant FORTH. La nature du chaïînage fait qu'ils 
apparaissent dans l’ordre chronologique inverse. 


A9 


M__JLA ÉD  ANC E 


Un des intérêts de FORTH est que le dictionnaire de base est modu- 
laire. L'utilisateur peut commencer à travailler avec un vocabulaire très res- 
treint. Il peut à tout moment, selon ses besoins, faire appel à des modules 
spécialisés de FORTH. 


Les modules existants sur les principaux FORTH sont les suivants : 


— travail en double longueur (32 bits) 
— calcul flottant 

— fonctions mathématiques et graphiques 
— gestion de l’imprimante 

— gestion de mémoire virtuelle, éditeur 
— assembleurs 

— gestion des entrées-sorties 


Ces découpages permettent à l’utilisateur d'optimiser le vocabulaire en 
fonction de l’application, ce qui entraîne les avantages suivants: 


— réduction de l’encombrement mémoire 


— réduction du temps de recherche dans le vocabulaire, et donc du 
temps d'interprétation 


1.4. GÉNÉRALISATION 
DE LA NOTION DE VOCABULAIRE 


Jusqu'à maintenant, nous avons présenté le travail du programmeur 
comme la définition de nouveaux mots participants du vocabulaire 
FORTH. 


Mais il a de plus la possibilité de créer de nouveaux vocabulaires. Il est 
en effet possible de travailler dans des vocabulaires de contextes différents, 
spécialisés pour telle ou telle application. 


Cette structure générale de vocabulaires est ramifiée, mais reste trans- 
parente à l'utilisateur. La machine ne connaît à un instant donné que le 
vocabulaire de contexte dans lequel l’utilisateur s’est placé. 


Le schéma suivant illustre bien cette structure : 


2.0 


FORTH de base Extensions de FORTH 
La L 
S, 9 
6, % 
PA 7 


L'ensemble des mots appartenant aux différents vocabulaires constitue 
le dictionnaire FORTH. 


Nous verrons plus tard comment l’utilisateur peut créer ses propres 
vocabulaires. 


Les implantations classiques de FORTH comprennent trois vocabu- 
laires: FORTH, ÉDITEUR, ASSEMBLEUR. 


Pour passer d’un vocabulaire à un autre, il suffit de taper le nom du 
vocabulaire désiré. 


#7 


FORTH Retu rm|OK 


ZA 
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RESUME DU CHAPITRE CE & LVUIVOILILIUILD VU 12 VLC ULEU LL 


1. Les touches de contrôle: 


Mot Définition _ À — Return ou Enter (suivant les terminaux et les machines) 
| L Control: Ctl | 


FORGET | FORGET nom” Élimine du dictionnaire tous les mots définis Le ÉsCaber 
depuis (chronologiquement) et y compris É PAAENES 
nom”. : — Shift 
: nom” Mot qui indique que l'utilisateur définit un 1 Boat 
” définition ” ; nouveau mot. C’est le mot de début de 4 
définition. seront représentées dans un rectangle : 
: nom” Mot qui indique la fin de définition d’un 4 
"définition ” ; mot.; ne peut être utilisé qu'avec: . L | 
commentaire” ) Mot qui indique que le texte qui suit est un 1 
simple commentaire. Ce mot est toujours 4 E 
utilisé en paire avec ). 4 _ 
) ( commentaire” ) Mot qui indique la fin de commentaire. 4 Shift 
VARIABLE | ”valeur initiale” Mot de définition d’une variable. 
VARIABLE ” nom de la 


variable ” 


CONSTANT | ”’valeur” CONSTANT! Mot de définition d’une constante. La diffé- 


nom de la constante ”| rence fondamentale entre une constante et EXERCICE 1 : 
une variable est que, une fois définie la oO | 
valeur d’une constante ne peut être modifiée. ue reste-t-il sur la pile à la fin des séquences suivantes: 
(n ——— ) Dépile une valeur signée sur 16 bits et l’af- 4 a) 123..4..5. 
fiche sur le terminal dans la base courante. 4 b) 2345.33 5418.. 
La valeur affichée n’est plus sur la pile. 4 c) 32 15 11 7 .. 
4 
Affiche sur le terminal la liste des mots * d) 9.12.13 14.15 18 
FORTH qui constituent le vocabulaire de É. 
contexte. 
FORTH FORTH Rend FORTH le vocabulaire de contexte. 4 
EDITOR EDITOR Rend EDITOR le vocabulaire de contexte. 1 EXERCICE 2: 


ASSEMBLEUR! ASSEMBLEUR Rend ASSEMBLEUR le vocabulaire de 
contexte. 


Transformez les expressions suivantes en notation polonaise inversée : 


a) (a+b)*(c+dl) 

b) ((a+b}/c)+((d+e)=f) 

c) (a/(b+c))}/{(d+e)+{a/c)) 

d) (ax(b/c)}+((d+a)+(b/(c+d))) 
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2 le 


lus 
COMMENT PROGRAMMER 


111.1. LES OBJETS ET LEUR MANIPULATION 


111.1.1. Lire et écrire en mémoire 


FORTH travaille sur des cellules de 16 bits. Pour lire le contenu d’une 
cellule mémoire, il suffit de placer l’adresse de la cellule désirée sur la pile, et 
d'exécuter le mot @ (Fetch), qui retourne le contenu dans la pile. 


Exemple: Lire le contenu de l’adresse 12588: 
12588 @ .|Retun 5163 OK 


Il existe un mot FORTH qui affiche directement le contenu d’une cel- 
lule donnée à l'écran: c’est le mot?. 


Dans notre exemple, on pourra donc aussi taper : 


12588 ? [Return] 5163 OK 


La coutume est d’exprimer les adresses mémoires en base 16 (hexadé- 
cimale). FORTH permet de changer facilement de base, à l’aide des mots 
HEX (-— 16), et DECIMAL (- 10). 


Exemple : 
12588 HEX .[Return\312C OK 


Pour écrire une valeur sur 16 bits dans une cellule mémoire, le principe ] D 
est le même : placer la valeur puis l’adresse dans la pile, et exécuter le mot ! 
(Store). | 


FS 


em cri 00 rest *‘2C: 
HEX 3F00 312C ! |Return|OK 


Il est possible de travailler sur des cellules de huit bits (1 octet), en uti- 
lisant les mots C@ et C!. 


Exemple: Relire le contenu des adresses 312C et 312D: 


312C C@ .[Retum|0 OK 


312D C@ .[Return|3F OK 


On remarque que le mot ! présenté ci-dessus place le LSB (Least 
Significant Byte) à l’adresse spécifiée, et le MSB (Most Significant Byte) 
a l’adresse qui suit. 


111.1.2. Définir et utiliser des constantes 


Nous avons déjà vu comment définir et utiliser pour la première fois 


une constante : 
CONSTANTE Nom 


Dés que la constante a été définie, le nouveau mot FORTH d Nom a 
pour action de placer la valeur de la constante sur la pile de donnée. 


Valeur 


Ainsi : 
16 CONSTANTE SEIZE [Return] OK 
SEIZE .| Return] 16 OK 


111.1.3. Définir et utiliser des variables 


Pour définir une variable, le principe reste le même: 


Valeur VARIABLE Nom 


Dès que la variable a été définie, le nouveau mot FORTH | nom” a 
pour action, cette fois, de placer l’adresse de la valeur sur la pile. 


Ainsi : 


15'""T'ABLT ONG 7 [R ]ok 


LONGUEUR [Return] OK (Adresse ——— } 
@ [Retur] OK 
[Retum] 15 ok 


En d’autres termes: 


LONGUEUR ?[Return] 15 OK 


Pour modifier la valeur d’une variable, on va naturellement utiliser le 
mot ! déjà présenté. 


( Valeur ——- ) 


(—-) 


Exemple: 
14 LONGUEUR !|[Return] OK 


LONGUEUR ?/[Return] 14 OK 


111.1.4. Les USER VARIABLES 
Les USER VARIABLES sont des variables FORTH spécialisées uti- 
lisées par l’interpréteur. 


Exemple: — HERE a pour valeur l’adresse du premier emplacement libre 
dans le dictionnaire. 


— BASE a pour valeur la base courante de travail. 
À cæ propos, la définition de HEX s'écrit : 
: HEX 16 BASE ! ;[Return]Ok 


Pour définir OCTAL, qui nous fera passer dans la base huit, il suffira 
de faire: 


: OCTAL 8 BASE ! ; [Return] Ok 


Pour connaître la base Courante, il suffit de taper: 


BASE ?[Return] 10 OK 


On peut noter qu’afficher la base courante dans la base courante est un 
problème singulièrement absurde, puisque la valeur sera toujours 10. 


Si maintenant, plus sérieusement, on désire afficher la base courante en 27 
décimal, et sans la changer, on pourra définir le mot suivant : 


: OUFLLE-RASE 


BASE @ ( Var-pase ——— ) 
BASE @ ( Val-base Val-base ——— ) 
DECIMAL ( Val-base Val-base ——— ) 
: ( Val-base ——— ) 
BASE ( Val-base Ad-base ——— ) 


: [Return] OK 


On peut alors exécuter : 


HEX QUELLE-BASE 16 OK 


_—— 


111.2. LES PILES ET LEUR MANIPULATION 


111.2.1. La pile de donnée 


Cette pile a déjà été présentée en détail, nous allons maintenant décrire 
les outils de manipulation qui s’y rattachent. 


Lors de la présentation du mot . , nous avons vu que son exécution 
détruisait systématiquement le sommet de la pile. Comment donc Rte 
le sommet sans le détruire ? Il suffit de commencer par le dupliquer : c’est le 
mot DUP. 


Exemple : 


D 


1 (7 
DUP lReturn!OK CPE) 
Return! 1 OK ( 1 


Il existe quatre autres mots importants: 


— Le mot DROP ( n ——-— ), qui détruit le haut de la pile. 

— Le mot SWAP ( nl n2 ——-— n2 nl }), qui échange les deux der- 
nières données entrées. 

— Le mot OVER ( nl n2 ——-—n1 n2 nl ), qui duplique l’avant der- 
nière donnée entrée sur le sommet de la pile. 

— Le mot ROT( nl n2 n3 ——— n2 n3 nl ), qui effectue une permu- 


tation circulaire sur les trois dernières données. 


Toutes ces manipulations concernent des données sur 16 bits, utilisant 
une seule cellule de la pile. 


24 


28 


Cerendant, see mots --* chac--- ‘iuré ‘ alen .. rla ipul: 
de doubles cellules (32 bits): 


2DUP (n1n2 ——— n1 n2 n1 n2 ) 

2DROP ({ n1 n2 ——- } 

2SWAP ( n1 n2 n3 n4 —__ h3 h4 n1 n2 ) 

20VER (nt n2 n3 n4 == h1 n2 n3 n4 n1 n2 ) 

2 ROT RS ) 


On remarque que la plupart de ces mots a une action différente de celle 
de la répétition des mots Correspondants travaillant sur 16 bits. 


Exemple: 
DUP DUP ( n1 n2 ——- n1 n2 n2 n2 ) 
2DUP (n1 n2 ——— n1 n2 n1 n2 } 


111.2.2. La pile de RETURN 


Comme tous les langages évolués, FORTH utilise une pile LIFO spé- 
cialisée pour mémoriser les adresses de retour aux procédures appelantes. 


La différence essentielle est que FORTH donne à l’utilisateur l’accès à 
cette pile grâce aux deux mots suivants : 


>R Transfère la cellule du sommet de la pile des données vers le 
Sommet de la pile de return. 


R> Effectue l'opération inverse. 


L'utilisation la plus courante de cette pile auxiliaire réside dans les 
déchargements provisoires de la pile de données. 


Par exemple, on peut donner facilement la définition des mots 2DUP, 
2DROP, 2SWAP, 20VER et 2ROT, en utilisant cette pile de return : 


: 2DUP OVER OVER ; [Return]Ok 

: 2DROP DROP DROP ; [Return] Ok 

: 2ZSWAP ROT >R ROTR> ; [Return] Ok 

: 2OVER PR >R 2DUP R> R> 2SWAP ; [Retum]ok 


: 2ROT | 7RZR 2SWAP R> R> 2SWAP : [Return] OK 2 
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Il cuise d'auues utnisations pius r&ës ue Ceuc pile. rar exernpie, 
tapez: 
: BONSOIR 123 ZR ; 


BONSOIR 


Vous avez compris, si vous avez fait l’essal, que ce type d'utilisation 
est réservée à une élite de barbus. 


Retum) OK 


En effet, il ne faut jamais oublier que l’interpréteur utilise en permar 
nence cette pile, pour y mémoriser les adresses de retour des procédures. Si 
vous l’utilisez en cours de définition, vous êtes priés de la laisser en fin de 
définition dans l’état où vous auriez aimé la trouver en début de définition. 


111.3. LES MOTS ARITHMÉTIQUES 


111.3.1. Présentation 


Le FORTH dispose de mots arithmétiques spécialisés pour chacun des 
types de données suivant: 


__ Les nombres en simple longueur (16 bits) signés, 
__ jes nombres en simple longueur non signés, 

__ les nombres en double longueur (32 bits) signés, 
__ Les nombres en double longueur non signés, 

— es nombres flottants. 


Il existe de plus des mots de conversion d’un type à l’autre, ainsi que 
des mots dits mixtes, travaillant sur plusieurs types à la fois. 


Il est d’usage de représenter chacun de ces types sur la pile de la 
manière suivante : 


n : simple longueur signée 

u : simple longueur non signée 
d : double longueur signée 
ud : double longueur non signée 
f : flottant 


Les nombres négatifs sont représentés de façon très classique par leur 
complément à deux. Le principe de cette représentation consiste à compléter 
tous les bits du nombre à 1, puis d’ajouter 1 au nombre ainsi obtenu. 


0000 0000 0000 1100 
soit en hexadécimal | O O O C 


1111 1111 1111 0011 
+ 1 
1111 1111 1111 0100 


Exemple : 12 est représenté par 


—12 sera représenté par 


soit en hexadécimal F F F 4 


Il faut bien avoir en tête que la valeur du nombre contenu dans une cel- 
lule dépend du type que l’on lui alloue. En effet, supposons qu’une cellule 
contienne le nombre hexadécimal FFF4. Si l’on considère celui-ci comme 
signé, sa valeur sera —12. Si on le considère comme nombre non signé, sa 
valeur sera 65524. 


111.3.2. Les mots simple longueur 


FORTH dispose bien sûr des quatre mots de base, + — * / , qui 
opêrent ici sur des nombres signés. Le mot / représente ici la division 
entière. 
Exemple : 

13 5 /. Return! 2 OK 


L'effet de ces mots sur la pile se représente ainsi: 


+ { ni n2 ——— n1+n2 ) 
— ({ n1n2 —— n1-n2 ) 
* ({ n1 n2 ——— nixn2 ) 
/ ({ n1 n2 ——— n1/n2 ) 


Pour obtenir le reste de la division entière, on utilisera le mot MOD, 
travaillant sur des nombres non signés. | 


Exemple : 
13 5 MOD. |Return|3 OK 
MOD { u1 U2 ——— u—-reste }) 


Il existe un mot qui fournit à la fois le quotient et le reste de la division ® 4 


entière, c’est le mot /MOD. 


JE 


rxemple : 
13 5 /MOD . .|Return}2 3 OK 
/MOD ( ui u2 ——— u—reste u—quotient }) 


Vous pouvez vérifier que /MOD pourrait se définir à l’aide des mots 
MOD et / de la manière suivante: 


. MOD 2DUP MOD ROT ROT /:{Retum] OK 


Supposons maintenant que vous ayez à calculer un pourcentage, par 
exemple 45 % de 11241. Vous pourriez être tenté d’utiliser une des deux 


solutions qui suivent: 
11231 45 » 100 / 
ou 11241 100/45 x 


La première solution serait rejetée par la machine, le produit 45*11241 
ne tenant pas sur 16 bits. 


Vous seriez donc contraints d’utiliser la seconde. Cependant, la divi- 
sion entière vous ferait perdre beaucoup de précision. 


Pour pallier facilement à ces inconvénients, il existe un mot FORTH 
qui enchaîne les opérations * et /, et qui utilise un résultat intermédiaire sur 
32 bits: le mot */. 


*/ ({ n1 n2 n3 ——— nlxn2/n3 ) 
Vous ferez alors: 


11241 45 100 «/ 


La division reste ici la division entière, et il existe donc un mot qui 
fournit à la fois le quotient et le reste, tout en respectant les contraintes de 
«/: le mot */MOD. 


*/MOD  ( ui u2 u3 ——— u—-reste u—quotient | 


Exemple : 
11241 45 100 »/MOD .. [Return] 5058 45 OK 


Voici maintenant quatre mots d'usage plus classique : 


ABS ({n——— ini ) 
NEGATE ( n———-n) 
MIN cnlns Min(n1,n2) } 
MAX { n1 n2 —— Max(n1,n2) ) 


ef 


BEL. à 


J, caiste Uue autre 1auulle @e mots arunmétiques, dont 1 un des ope- 
randes est fixé. Par exemple 1+, 2+, 1—, 2x, etc. 


Leur utilisation est évidente : 
Exemple : 


5 2». 


[Retum] 10 OK 


Leur intérêt est uniquement relatif à l’optimisation du temps d’interpré- 
tation. En effet, il est courant d’avoir à faire au cours d’une définition, des 
opérations du type ajouter 1, soustraire 2, etc. L'utilisation du mot 1+, par 
exemple, plutôt que de la syntaxe 1 +, ne nécessite qu’une seule recherche de 
la part de l’interpréteur, et donc accélère l’interprétation. 


Les mots de ce type les plus souvent définis sont les suivants : 


4 ({n——-n+1 ) 
1 (n———n-1) 
2+ (n———n+2 ) 
2 ({ n——— n-2 ) 
2x ( n——— nx2 ) 
2/ ({ n ——— n/2 ) 


Pour conclure, citons le mot U. qui, contrairement au mot . qui affiche le 
sommet de la pile comme une valeur signée, affiche cette même valeur non 
signée. 


Exemple : 


—12. [Return]—-12 OK 


—12 U. [Return 65524 OK 


111.3.3. Les mots double longueur 


L’addition et la soustraction en double longueur s’effectuent par l’in- 
termédiaire des mots D+ et D-: 


D+ ( di d2 ——— di+d2 ) 
D— ( di d2 —— d1-d2 ) 33 


De même, on dispose des équivalents de NEGATE, ABS, MIN et 
MAX : 
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rs D ee PENSE CPI Riu Paname a - z 


FPRENSE SES 


DRE den tdi) 

DABS née "d} 

DMIN ( di d2 ——— Min(d1,d2) | 
DMAX { di d2 ——— Max(d1,d2) ) 


Il est nécessaire de disposer de mots permettant des entrées-sorties sur 
la pile en double longueur. 


Pour introduire un nombre en double longueur dans la pile, il suffit de 


. np . r + , , r 4e . . . 4 1 
faire précéder immédiatement son expression d’un délimiteur particulier, le : 


plus souvent le point. L’empilage a toujours lieu dans le sens LSW, MSW. 


Exemple : 4 


12 (Return) OK 


Return! O OK 


Return] 12 OK 


Pour afficher directement un nombre en double longueur situé au som- 
met de la pile, on utilise le mot D.: 


D. ({ d——— ) 


Exemple : 


12 D.[Return|12 OK 


12 O D.|Return] 12 OK 1 | 


O 2 D.{Return] 131072 OK 


IL existe un mot de conversion de type, qui convertit un nombre en 
simple longueur signé placé en haut de la pile, en un nombre en double lon- 
gueur signé : 


S— >D (n———- d) 
Exemple : 
12 S—>D D. [Return] 12 OK 


111.3.4. Les mots mixtes 


Il peut être pratique de pouvoir par exemple additionner les nombres 
de types différents, sans avoir à faire de conversion. Dans ce domaine, 
FORTH dispose des mots suivants: 


M + ( un ——— Uu—SOMite ) 


M/ ( dn ——— n—-quotient ) ({ division entière }) 
U/MOD ( ud u —— üu—reste u—quotient ) 

Mx ({ n1 n2 ——— d-produit ) 

Ux ({ u1 U2 ——— ud—-produit }) 

Mx/ ( dnu —— d-résultat ) 


De même que *#/ utilisait un résultat intermédiaire en double longueur, 
Mx/ utilise un résultat intermédiaire en triple longueur. 


Nous vous recommandons de vous familiariser avec ces différents 
mots en les utilisant sur des exemples de votre choix. 


111.3.5. Controverse point flottant, point fixe 


Comme vous l’avez sans doute remarqué, nous n’avons jusqu’alors 
présenté que des mots arithmétiques travaillant sur des nombres entiers. 


— Principe du point fixe : 


Dans ce système de stockage des nombres, c’est le programme qui 
prend en charge la gestion de la virgule, qui n’est pas connue de la machine. 


Par exemple, si vous devez faire des calculs de gestion comptable, vous 
pourrez parfaitement exprimer tous les nombres en centimes, faire tous les 
calculs sur des valeurs alors entières (simple ou double longueur), puis ne 
faire apparaître la virgule décimale qu’au moment de l'édition des résultats, 
si vous désirez que ces derniers soient exprimés en francs. 


Les valeurs numériques sont stockées dans des emplacements de lon- 
gueur fixe, et au cours des calculs il y a donc risque de dépassement de 
capacité. 


En double longueur, la gamme des nombres représentables s’étend 
donc de — 2 147 483 648 à + 2 147 483 647. | 


Un des travaux préliminaires du programmeur est donc d’exprimer, en 
fonction de la précision choisie, l’échelle optimale de représentation. 


= Aünsi, en gestion financière, on convertira tous les nombres en kilo- 
francs. 


Cette démarche est sur tous les plans la plus naturelle. Voici comment 36 
elle s’inscrit parfaitement dans quelques exemples classiques d’applications : 
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- At ition dont ” tem ‘el 

Si vous avez déjà examiné un appareil de mesure moderne, disposant 
d’un système d'affichage, vous aurez remarqué que les données sont 
calibrées par un facteur d’échelle au gré de l’expérimentateur, et apparais- 
sent en format fixe. Le point décimal est même parfois gravé sur le panneau 


avant lui-même: c’est typiquement la philosophie de la virgule fixe. 


Passons au cas plus général de l’acquisition de données toujours pré- 
sente dans un problème de temps réel. | 


L’organe intermédiaire entre un processus physique et un calculateur 
est composé d’un ou de plusieurs capteurs suivis par une amplification et 
une conversion analogique-numérique. L’ensemble électronique amplifi- 
cateur-convertisseur fournit par son choix même la gamme de valeurs qui 
apparaïtront. Le choix de l’échelle pour les calculs en virgule fixe est donc 
immédiatement induit par cet organe d'interface. 


— Gestion 
Une des phases de l’analyse d’une application de gestion classique, 
consiste en une dissection en profondeur de toutes les données. La longueur 


des informations alpha-numériques est fixée, de même que les valeurs maxi- 
males et minimales de toutes les données numériques. 


C’est le travail préparatoire à un calcul en virgule fixe. 


Le travail en virgule fixe, qui est très souvent possible, est le meilleur 
choix car il permet, pour des raisons purement techniques que nous allons 
évoquer par la suite, de diviser les temps de calculs par un coefficient supé- 


rieur à trois. 


— Principe du point flottant: 


Pour un programmeur utilisant maladroitement le point fixe, le pro- 
blème de dépassement de capacité se présente trop souvent. Son souhait 
serait de pouvoir confier à la machine la gestion automatique des change- 
ments d’échelle, par exemple dans les multiplications. 


Cette possibilité lui est offerte par le travail en point flottant. 


Er 


Les uvnnées sunt expiunées uans la macnine sous la torme : 


Signe Exposant Mantisse 


ou l’exposant est calculé de telle sorte que la mantisse soit cadrée à gauche. 


Cette prise en charge automatique des changements d’échelle par la 
machine a certainement été trop galvaudée, et a développé une tendance à la 
paresse dans la programmation. 


Quels sont les emplois légitimes du point flottant : 


1. Vous voulez utiliser une machine comme calculateur en point 
flottant. 


2. Vous valorisez le temps de développement par rapport au temps 
d'exécution. | 


3. La gamme de variation de vos données est vraiment trop grande. 


4. Vous disposez d’un processeur cablé flottant qui optimise ce type 
de calcul. 


FORTH pour sa part a beaucoup plus d’affinités pour le point fixe que 
pour le point flottant, car il cadre mieux avec le caractère sobre et précis du 
programmeur FORTHI. 


I faut bien garder en tête qu’un calcul en flottant, aussi confortable 
qu’il soit pour le programmeur, demande à la machine un beaucoup plus 
grand nombre d’opérations que son équivalent en point fixe. Les temps 
d'exécution en sont les premières victimes. 


Comparons par exemple une multiplication traitée des deux manières. 


En point fixe, cette dernière se résumera à l’algorithme classique 
d’addition-décalage. 


En point flottant, la machine devra d’une part additionner les expo- 
sants, puis effectuer la multiplication des mantisses, puis recalculer l’expo- 
sant de manière à cadrer la mantisse à gauche. 


L’occupation de la mémoire pendant le calcul n’est donc pas non plus 
optimisé, puisqu'il faut traiter parallèlement les exposants et les mantisses. 


En point fixe, la machine ne connaît que des entiers avec lesquels elle 
calcule très rapidement. 


Cette tendance du FORTH pour le point fixe est tellement marquée 
que les premières versions du FORTH ne connaissaient pas les calculs en 
flottant, qui furent introduits par la suite sous la forme de modules comme 3 
décrit précédemment. 


_… L_. MO°- DE C_..IPA....SOI. ” 6OuU A000 < .  [Return]O OK 


6000 A000 U<. [{Return|1 OK 


111.4.1. Les variables booléennes Méditez … 


Comme dans de nombreux langages évolués, les variables booléennes 
ne sont pas physiquement différentes des autres variables. L'état FAUX 


correspond à une valeur nulle, toutes les autres valeurs correspondant à un : 
état VRAI. 


111.4.3. La comparaison en double longueur 


Les mots appartenant à cette catégorie sont les suivants: 


Le principe de fonctionnement des mots de comparaison est le suivant : D=— ( di d2———b ) teste si (d1—d2) 
les paramètres sont rangés au préalable dans la pile, et le résultat de la com D< {di d2—-b ) no sttédo) 
paraison sera retourné en simple longueur dans la pile sous la forme d'une 


| DU< ({ ud1 ud2 ——— b ) teste si (ud1<ud2) sur 32 bits 
variable booléenne. | 


{ vari var2 ——— flag ) 


On conviendra par la suite de représenter les paramètres booléens sur 111.4.4. Les opérateurs booléens 


RIRE Les opérateurs booléens traditionnellement employés sont: ET, OÙ, 


complémentation, représentés en FORTH respectivement par », +, O=. 


Pour mémoire, les tables de vérité de ces 3 opérateurs logiques sont : 


111.4.2. Les comparaisons simple longueur 


FORTH connaît la liste des mots de comparaison suivants: 


= { nin2———-b ) teste si n1=n2 
( ui u2 b } teste si u1<u2 ET logique OU logique Complémentation 

U< lue 

. (ntn---b) teste sin1<n2 Exemple d’application : Tester si un nombre appartient à un intervalle 
ou vert. 

> { ni1n2---b ) teste sin1>n2 t 

@) b ) teste si n=0 Les valeurs seront entrées dans la pile dans l’ordre: 

O> ( n——b |) teste sin>0 ( Borne—inf n Borne sup ——— ) 

O< {n—-b) teste si n<O Le résultat du test étant lui-même retourné dans la pile. 


| Le test s’écrit de façon très simple: 
NoTA : Pour pouvoir effectuer des comparaisons de nombres supérieurs à 
32767, il faudra le spécifier à l’interpréteur, afin qu’il ne les considere pas 
| PUoe e | 
comme signés. Pour bien percevoir cette notion, faites l’essai suivant: 


{ n > Borne-—inf ) ET ( n < Borne-sup |) 33 
et devient en FORTH: 


2% 


 ER\ ( fn Ip — | 

OVER ( B-InfnB-Supn——— ) | 
> ({ B—-Infnb1—-—— ) Ces mots effectuent respectivement les opérations ET, OU, COMPLE- 
>R ( B—Infn —— ) MENTATION, OU-EX, mais en parallèle sur chaque bit. 
< ( b2——— ) 
R> tb261==—) Ainsi : 
* ( b2 etb1 ——— ) 1 2 AND .{ReturnlO OK 

: [ReturnlOk S 

En effet, 


123 INTERVALLE. [Return|1 OK 


Certains langages connaissent le OU-EXCLUSIF dont la table de 
vérité est: 


1 —> 0000 0001 
2 —> 0000 0010 


1 AND 2 —> 0000 0000 


Alors que: 


1 2 + .[Return|3 OK 


A titre d'exercice, définissons le mot OUEX qui remplit cette fonction. 


On voit que A OUEX B s'écrit de façon très simple: 115. LES MOTS DE STRUCTURATION 
( AOUB )ET( A OUB |} | | 
L'utilisateur devra particulièrement s’intéresser à ces mots, car de leur 


emploi à bon escient dépendra la qualité du logiciel. 


: OUEX Latin) | . nn 
2DUP { nin2n1n2——- |) En effet, au cours du développement, leur élégante utilisation sera 
# { nin2{(niou n2)——— ) l'aboutissement d’une bonne analyse, d’idées claires et précises ainsi que 
>R ({ nin2——— ) d'une compréhension globale du problème. 
== 1 n2 FREE } S 4. , . . 

Se | 5 ni ——— ) Ils permettront à l’utilisateur d’écrire un programme souple, lisible, 
0= a bien équilibré, caractéristiques extrêmement appréciables lorsque l’on veut 
: { (nloun2) —— } fournir des logiciels à longue durée de vie. 

R> ((n2oun1) (ntoun2) ——— ) On y retrouve les structures conditionnelles et répétitives classiques, 
* ( n1OUEXn2 ——— }) 


chacun des mots nécessitant des paramètres les prenant sur la pile comme à 
l’accoutumée. 


; [ReturnjOK 

1 3 OUEX .  [Return]O OK 

O 15 OUEX . [Return|15 OK 

FORTH connait également des mots de manipulation de bits, dont les 


mnémoniques peuvent prêter à confusion, puisqu'il s’agit de AND, NOT, 
OR, XOR. un | 


; 


111,5.1. La structure conditionnelle IF … ELSE … THEN 


L'organigramme d’une telle structure est le suivant: 4 A 
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4 


Traitement 1 


Traitement 2 


Rappelons que, dans l’esprit FORTH, tout paramètre utilisé par un 
mot doit être d’abord préparé éventuellement sur la pile. Ceci risque de trou- 
bler quelques lecteurs. En effet, une syntaxe classique : IF conditions … aura 
pour équivalent en FORTH: conditions IF … 


La syntaxe FORTH correspondante sera : 
Condition IF traitement 1 ELSE traitement 2 THEN. 


Seule la valeur du booléen présent sur la pile au moment de l’exécution 
du IF détermine le choix du traitement: 


b=— VRAI traitement 1 
— FAUX traitement 2 


L'effet de ces mots sur la pile s’écrit: 


IF A 
ELSE Lu) 
THEN { ——— } 


Exemple: Notre but est de recréer notre mot INTERVAL. Nous pou- 
vons maintenant nous permettre de n’effectuer le second test (N>Binf) que 
si le premier (N<Bsup) s’est avéré être vrai: 


: INTERVAL (Binf n Bsup ———) 
_ OVER (Binf n Bsup n ———) 
> (Binf n b1 ———) 
IF 
< (b2 ———) 
ELSE 
2DROP 
0 
THEN 


Return]OK 


Or. past ASS ct Ut: plusiuu » de LCuo ou UCtui vo en les uubDriQuaur. : 


Pour notre exemple, nous présentons ici un mot FORTH permettant 
d'afficher une chaîne de caractères sur le périphérique de sortie, le mot 


LE 


La chaïne de caractères doit être située après ce mot, et se terminera 
par le caractère ? 


Exemple : 


: BONJOUR .” CA VA?" ; [Return]OK 


BONJOUR  {Return|CA VA? OK 


Nous voulons maintenant que notre mot INTERVAL ne nous 
retourne plus un boléen sur la pile, mais nous affiche l’une des trois réponses 
suivantes: TROP PETIT, BON, TROP GRAND; On écrira: 


: INTERVAL 
OVER 
> 
IF 
« 
IF 
. BON” 
ELSE 
. " TROP PETIT” 
THEN 
ELSE 
2DROP 
. "TROP GRAND” 
THEN 


‘[Retum] OK 


111.5.2. Les structures répétitives 


a) La structure DO … LOOP, boucle définie. 


L’algorithme est le suivant : 


4S 
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Condition 
d'arrêt 


VRAI 


FAUX 


L'action des mots sur la pile de données s’écrit: 


DO ( Ind(Fin)+1 Ind(Début) —-—— } 
LOOP er) 


Ces deux mots effectuent les actions suivantes : 


DO empile sur la pile de return l'indice de fin + 1, ainsi que l’indice de 
début, puis enchaîne l’exécution des mots du traitement à répéter. 


LOOP compare les deux valeurs au sommet de la pile de return. Si le 
dernier est inférieur à l’avant dernier, LOOP incrémente le sommet de 1 et 
transfère l’exécution au mot qui suit immédiatement DO. Dans le cas con- 
traire, la pile des return est nettoyée de ses deux valeurs au sommet, et l’exé- 
cution est passée au premier mot suivant LOOP. 


Notons tout de suite que le traitement répétitif s’exécutera au moins 


une fois. 


Exemple: Afficher tous les nombres de 1 à 10: 


: AFFICHE 1 ( 1 ——— } 
10 O ( 1 10 O——— } 
DO (12) 
DUP( 11——— ) 
. tee) 
14 (2——— ) 
LOOP 
DROP  ( ——— }) 


: [Return] OK 
AFFICHE [Return] 1 2 3 4 5 6 7 8 9 10 OK 


Vois audiltéuaut UN mix d’utiusauiOn prauque aans le caare de cette 
structure : le mot I. Celui-ci duplique sur la pile des données le sommet de 
la pile de return, c’est-à-dire l’indice courant lors de l’exécution d’un DO … 


: LOOP. 


Exemple: On peut donner une autre définition de AFFICHE. 


: AFFICHE 


11 1 
DO 

Dr 
LOOP (| 


euro 


On peut aisément imbriquer les boucles. Supposons que l'on veuille 
afficher un carré d’étoiles de 3 colonnes et 3 lignes, on écrira: 


( 111——— |} 


: CARRE 
CR 
3 0 
DO 
3 O0 
DO 


( indices boucle lignes ) 
( indices boucle colonnes ) 
. #” 
LOOP 
CR 
LOOP 
‘Return OK 


Le mot CR émet le caractère ASCII de code 13 (carriage return) sur le 
périphérique de sortie, et fait donc passer à la ligne. 


CARRE 
*ok x 
ok 
aahal 
OK 


De même que le mot I duplique l’indice de la boucle en cours d’execu- 
tion, il exite un mot K qui duplique sur la pile de données l’indice de la 
boucle de niveau immédiatement supérieur, c’est-à-dire la troisième cellule 
de la pile de return. 


On peut imaginer une manière artificielle de sortir d’une boucle qui 
consiste à remplacer le sommet de la pile de return par le contenu de la 


45 


46 


deux cell * Un: jui r 
pourrait le définir comme suit : 


. 1ECe..s sn0tsitlé sx LE4 rs: On 


: LEAVE 
R> R> ( cell ——— ) 
DROP  (——- ) 
R> ( cel2:== ) 
DUP ( cel2 cel2 —— |) 
>RDRSR 


[Retum] ok 


Précisons cependant que ce mot n’est utilisé que pour se sortir de 
situations inextricables amenées par une mauvaise préparation, et un mau- 
vais choix de la structure de contrôle. Son utilisation n’est donc pas à 
conseiller. 


Si le programmeur désire incrémenter son indice courant d’une valeur 
différente de 1, il pourra utiliser la syntaxe: 


DO …+LOOP +LOOP ({ Incr ——— ) 


L'incrément devra alors se situer sur la pile de données au moment de 
l’exécution de +LOOP. Le fonctionnement général de cette structure est 
absolument identique à celui de DO...LOOP. 


Exemple : 
: TABLE nes 
DUP ({nn——— ) 
10 «x 1+ ( n 10n+1 ——— ) 
OVER (.:n 10n41n 2 ) 
DO 
[ , (n—— ) 
DUP 
+LOOP 
DROP 


(Return\OKk 


5 TABLE{Return]5 10 15 20 25 30 35 40 45 50 OK 


b) La structure BEGIN … AGAIN, boucle infinie. 


L’algorithme est le suivant : 


ie 
AE 


és 
NET 
5 


AA ee USA 


Actions sur la pile: 


fe 
(—— ) 


BEGIN 
AGAIN 


Cette structure présente relativement peu d'intérêt puisqu'il n’existe 
pas de moyens de la quitter en douceur et que la boucle infinie reste encore 
la honte du programmeur. 


Cependant, elle peut trouver emploi dans des systèmes de contrôle de 
processus, systèmes d'exploitation, etc. Nous vous laissons toute liberté de 
vous lancer dans un exemple de ce type. 


c) La structure BEGIN … UNTIL, boucle indéfinie. 


L’algorithme est le suivant : 


Condition 
d'arrêt 


VRAI 


Les actions sur la pile de données: 


ee) 
lie 


FAUX 


BEGIN 
UNTIL 


Le débranchement se fait ici-au niveau du UNTIL, uniquement si le 
booléen au sommet de la pile a alors une valeur VRAI. Dans le cas con- 
traire, l’exécution est transférée au mot suivant BEGIN. 


On remarque que le traitement est effectué ici aussi au moins une fois. 


Supposons pour notre exemple que nous disposions des deux mots 
FORTH, OUVRE et FERME dont l’action soit respectivement l’ouverture 
et la fermeture d’un robinet. 


Supposons d’autre part que l’exécution d’un mot PLEIN ? retourne sur 4] 
la pile un booléen ayant la valeur VRAI si le lavabo est rempli. 


7  xœut sde  len EM à de nani. Uivé _. 
: REMPLIR OUVRE BEGIN PLEIN? UNTIL FERME; |Return)OK 


Cette structure peut très souvent remplacer avantageusement une mau- 
vaise utilisation de DO … LOOP, dans des problèmes où l'introduction d’in- 
dices de fin est purement artificielle, et où la condition de sortie survient 
souvent avant la coïncidence des indices. 


d) La structure BEGIN … WHILE … REPEAT ; 


L’organigramme se décrit: 


Traitement 1 Traitement 2 


Condition 
d'arrêt 


Effet des mots sur la pile: 


BEGIN  (——-— ) 
WHILE (b——- ) 
REPEAT ( ——— ) 


Cette structure est de loin la plus simple, puisqu'elle permet de placer 
le point de débranchement à un endroit quelconque dans la boucle. 


En effet, celui-ci se situe au niveau du WHILE. 


Il y aura débranchement si le booléen alors présent sur la pile prend la 
valeur FAUX. 


Il est de plus important d’avoir en tête que dans l’utilisation de cette 
structure, il ne suffit pas de mettre O sur la pile si l’on veut sortir, 1l faut 
aussi y mettre une valeur non nulle si l’on veut y rester !!! Cette remarque 
est d’ailleurs aussi valable pour la structure BEGIN … UNTIL, au sens du 
booléen prés. 


Pour notre exemple, supposons que l’on dispose d’un mot COULE qui 
ouvre un robinet pendant un très court instant. On pourra définir REM- 
PLIR ainsi: 


: F ..'LIR 


BEGIN 
PLEIN? ( b——— |} 
0— (bee 

WHILE 
COULE 

REPEAT 


: [Return] OK 


Toutes les structures que nous venons de voir sont imbricables, la seule 
limite étant la taille mémoire de la machine!!! 


Nous aurons d’ailleurs l’accasion de les voir souvent appliquées dans 
les problèmes figurant en fin de l’ouvrage. 


111.6. LES ENTRÉES—SORTIES 


111.6.1. Le clavier 


FORTH dispose comme tous les langages évolués de la possibilité 
d'interroger le clavier. Il peut le faire aussi bien au niveau du caractère que 
de la chaîne complète. 


Le mot qui travaille sur un caractère est le mot KEY. L’exécution de 
ce dernier met l’interpréteur en attente d’une frappe au clavier, et retourne 
sur la pile, lorsqu'une touche est pressée, le code ASCII du caractère 
correspondant : 


KEY { ——— C ) 


Exemple : Définissons un mot qui attendra la frappe d’une touche, affichera 
le code du caractère correspondant et répétera cette opération jusqu’à ce que 
vous frappiez la touche RETURN. Rappelons que cette dernière touche a 
pour code ASCII 13. | 


4? 


50 


: SC | 
BEGIN 
KEY ({ c——— ) 
DUP  (cc———) 
13 — ( cc—-13—-—— ) 
WHILE 
ie 
REPEAT 
DROP ( ——— ) 


:[Return|OK 


Remarque importante : les nombres figurant dans une définition sont 
convertis en binaire par rapport à la base courante. Ici, RETURN a pour 
code ASCII 13 en base décimale. Si vous tapez cette définition sous la base 
hexadécimale, il faudra remplacer 13 par OD. 


La définition étant semi-compilée, une modification ultérieure de la 
base courante n’aura bien entendu aucun effet sur les valeurs contenues 
dans la définition. 


Un deuxième mot bloque l’exécution dans l’attente d’une frappe au cla- 
vier : 1l s’agit de EXPECT. Cependant, celui-ci sait attendre la frappe d’une 
chaine de caractères complète dont on lui précise la longueur, et la range où 
l’on veut. 


EXPECT 'Adeu=22"1) 


L'adresse correspond au premier octet en mémoire à partir duquel on 
désire ranger la chaîne de caractères. Le nombre non signé correspond à la 
longueur limite de cette chaine, l’interpréteur reprenant la main lorsque cette 
limite est atteinte ou lorsque l’on frappe la touche RETURN. 


La définition de EXPECT à partir de KEY pourrait s’écrire: 


: PECX purs ] 


(@) ( adru 0 ——— ) 
BEGIN 
2DUP ( adrulul——— ) 
— ( adrulu—l ——— ) 
IF 
ROT ( ul adr ——— ] 
KEY ( uladr c——— ) 
DUP ( uladrcc——— ) 
F3 = ( uladrcc—13 ——-) 
IF 
DUP EMIT 
OVER ( uladrcadr——— ) 
C! 
1+ ( uladr+1 ——— ) 
ROT ROT ( adr+1 ul ——— ) 
1 + ( adr+1ul+1———  ) 
O ( adr+1ul+10———  ) 
ELSE | 
2DROP DROP ( ——— } 
1 ( 1 ——— ) 
THEN 
ELSE 
2DROP 2DROP( ——— ) 
1 ( 1 ——— } 
THEN 
UNTIL 


IReturnJOK 


Nous allons maintenant nous munir d’un outil qui nous sera précieux 
par la suite: le mot DUMP, qui affichera à l’écran une zone mémoire : 


DUMP ( Adrn ——— ) 


L'adresse correspond au début de la zone mémoire à afficher, et le 
nombre n au nombre d’octets. 


On pourrait définir ce mot ainsi: 


LA 


RUE un” 
O ( adrNind—deb ——— ) 
DO 
DUP ( adradr——— ) 
| 
+ ( adradr+|——— }) 
C@ ({ ad M ——— }) 
: ( adr——— ) 
LOOP 
DROP { ——— } 


[Retumiok 


On peut maintenant faire l’essai suivant: 


EX [Return]Ok 


CO00 10 EXPECT [Return] ABCDEFGHIJKLMNOP OK 
CO00 10 DUMP [Return) 41 42 43 44 45 46 47 ….. OK 


On retrouve bien les caractères tapés sous la forme codée. 


Une fois la ligne saisie par l’intermédiaire des deux mots précédem- 
ment vus, il faut la mettre en forme pour préparer le travail de l’interpréteur. 


La première chose à faire est d’isoler les mots. Le mot WORD effectue 
ce travail en allant ranger le mot suivant dans la phrase à la fin du diction- 
naire (HERE). Le mot en mémoire est précédé par un octet contenant sa 
longueur. Le séparateur est au choix de l’utilisateur, le plus souvent il 
s'agira du caractère blanc. L'adresse retournée est le début du mot en 
mémoire. 


WORD (‘c ——— ad 


Pour bien comprendre l’action de WORD), définissons le mot suivant : 


: ESSAI 
32 WORD ( adr—-— } Met le mot suivant dansla phrase 
à la fin du dictionnaire. 
6 DUMP ({ ——— ) Affiche les six premiers octets 


de la fin du dictionnaire. 


: [ReturnOK 


ESSAI ABCD [Return|4 65 66 67 68 72 OK 


Sur certains FORTH, WORD ne retourne pas d’adresse sur la pile, 
puisqu'il est bien évident que celle-ci correspond toujours au contenu de la 
variable — utilisateur HERE. 


|  dra  ;: dé... alor. -_ SAÏ la nu ucre Suivante: 
: ESSAI 32 WORD HERE 6 DUMP: [Return] OK 


Le problème de WORD est qu'il transfère le mot à la fin du diction- 
naire, dans une zone mémoire donc éminemment variable, car toute nou- 
velle définition vient s’y installer. Quand vous saurez de plus que l’interpré- 
teur lui-même utilise WORD et donc cette même zone mémoire, vous com- 
prendrez qu’il vaut mieux que notre mot ne s’y attarde pas trop longtemps. 

Pour pallier à ce problème, FORTH dispose d’une zone tampon, dont 
l’adresse est en permanence contenue dans la variable — utilisateur PAD. 


Il existe donc un mot équivalent à WORD), qui transfère le mot suivant 
de la phrase, non plus en fin du dictionnaire, mais dans cette zone tampon: 
c’est le mot TEXT. | 


TEXT LC ==) 


c correspond encore ici au code ASCII du caractère délimiteur. Mais ici, la 
chaîne en mémoire n’est pas précédée de sa longueur. Parallèlement à l’essai 
de WORD, on peut faire l’essai suivant : 


: ESSAIO 


32 TEXT 
PAD 
6 DUMP 


; [Return] OK 


ESSAIO ABCD fReturn|65 66 67 68 32 32 OK 


Une fois que le mot a été transféré en mémoire par WORD on a sou- 
vent besoin d’obtenir la longueur du mot, ainsi que l’adresse où il commence 
vraiment. L'adresse retournée par WORD est celle de l’octet précédant le 
mot, qui contient sa longueur. 

FORTH dispose d'un mot effectuant cette tâche: 

COUNT ( adr ——— adr+1 u ) 


On peut le définir facilement: 


: COUNT { adr——— ) 
DUP ( adradr——— ) 
Ce ( adru——— ) 
SWAP 1+ SWAP ( adr+1u——— } 


:[Retumok 57 


 . ES 0 . Ur h ue . LE is Pour arncher un nomore variabie de biancs, il suttit de mettre ce 
SE nombre sur la pile et d’utiliser le mot SPACES défini comme suit : 
. . SPACES O DO SPACE LOOP ;[Return|OK 
72 32 FILL 3 Pour vous détendre, essayez de créer, en utilisant les caractères de con- 
WORD D  trôle disponibles sur votre terminal, les mots suivants : 
HERE … , ; 
COUNT . — PAGE qui vous affiche un écran blanc 
PAD SWAP 1 — BEEP qui émet un bip sonore 
<CMOVE ; | — SETAB qui pose une tabulation horizontale 
4 — TAB qui positionne le curseur à la prochaine tabulation horizon- 
> 7 tale posée. 
Voyons un exercice un peu plus élaboré: 
H afficher à l’écran n caractères dont les codes ASCII sont contenus dans une 
111.6.2. L'écran: problème simple d'affichage HN zone mémoire commençant à une adresse donnée ADR. 


Nous avons déjà utilisé les mots de base. , D. et U. qui servent respec- 


NE Fa : TYPE ( Adrn——— }) 
tivement à l'affichage de la valeur du sommet de la pile en simple, double 
longueur et non signée. Nous avons également vu .” qui sert à afficher une . 0 DO ( Adr——— ) 
chaine de caractère terminée par ” . Le mot CR effectue un retour À DUP @ ( Adr code ASCII——— ) 
chariot: passage en début de ligne suivante. à 
| - * EMIT ( Adr——— ) 
Voyons l'outil de base pour réaliser toute manipulation de l'écran; 14 
c’est le mot EMIT qui affiche à l’écran le caractère dont le code ASCII est : 
sur le sommet de la pile. :. LOOP ( Adr+1——— ) | 
Nous attirons tout de suite l’attention sur la différence entre . et EMIT. | DROP er 


: [Return] OK 


Voici une autre application du clavier et de l'écran. 


Exemple : 
65 (Return) OK 
Return|65 OK 
65 [Return/OK 
EMIT /Return|A OK 


Le mot CR est défini à partir de EMIT: 
: CR 13 EMIT:/Return| OK 


Ce type de mot de contrôle de l’écran est toujours defini de la même 
façon. 


Exemple: Affichage d’un caractère blanc: 


: SPACE 32 EMIT;[Retum|OK 


55 
Se 


C A 


LE 


"JEU 7? 
BEGIN 
32 WORD 
HERE 1+ Ca@ 


( Transfert du mot à la fin du dictionnaire ) 
( Valeur du premier caractère ) 

WHILE 

HERE COUNT 


( Test de fin ) 

( Préparation des paramètres pour TYPE ) 
TYPE ( Impression du mot ) 
CR 

REPEAT 


[Retumok 


JEU A LA MAISON 


L'interpréteur détecte et exécute successivement les mots résidant 
dans l’input stream. La détection est faite grâce au séparateur, ici le carac- 
têre blanc. Le mot que nous venons de définir inspecte au moment de son 
exécution le restant de l’input stream, fait le même travail de détection que 
l'interpréteur et affiche chaque mot qu’il a pu isoler sur une ligne de l’écran. 
La condition d’arrêt est la rencontre d’un caractère nul. 


Un autre mot qui s’avère très utile est -TRAILING qui recalcule la 
longueur d’une chaîne en éliminant les caractères blancs en fin de chaine. 


— TRAILING ( Adr u1 ——— Adr u2 ) 


Formats 


Nous allons examiner le formattage des nombres en double longueur 
non Signes, nous verrons par la suite comment faire pour se ramener systé- 
matiquement à ce cas de figure. 


La fonction du formattage est de construire la chaîne de caractères à 
imprimer qui représente la valeur située au sommet de la pile dans la base 
courante. 


L'eapiesSiOn uu 10FMar u IMpiessiun es ueiimitee par les mots <4 et 
#>. Le format le plus simple consiste à convertir un nombre (double lon- 
gueur) au sommet de la pile en son expression littérale sous forme de codes 
ASCII. C’est la fonction du mot #S. 


Le mot UD. est défini de la façon suivante: 


UD. << ZS > TYPE : [Return] OK 


Vous remarquerez que le format ayant construit la chaîne de carac- 
tères voulue, le mot #> prépäre sur la pile les paramètres nécessaires au 
mot TYPE qui effectue l’impression. | 


Il est à noter que le mot #S ne produira pas de zéros non significatifs 
mais toujours au moins un chiffre. 


Pour formatter plus finement un nombre il faut avoir la possibilité de 
convertir séparément chacun des chiffres ; c’est la fonction du mot # qui 
place l'expression ASCII du chiffre le moins significatif dans la chaîne à 
éditer et le retranche du nombre. 


Exemple : 
: DISP2 <4 # # #> TYPE : [Return] OK 
325. DISP2|{Return] 25 OK re) 


Cette possibilité de coder un à un des chiffres permet d’intercaler des 
caractères entre les chiffres grâce au mot HOLD, précédé du code ASCII 
que l’on veut intercaler. 


Exemple : 


Édition après calcul en virgule fixe à deux décimales. 


. [Rewumjok 


: # RÉ # 46 HOLD #S Z> TYPE 


123459. .# 1235.49 OK 


Rappelons que l’interpréteur détecte les valeurs en double longueur par 
un point qui les suit (voir exemple précédent). 

N’essayez pas de faire le rapprochement entre la notion FORTH de 
format et celle des langages évolués courants. 


FORTH vous permet par exemple de changer de base à l’intérieur 
même du formattage: ceci est dû au fait que la notion de construction de 
chaine de caractères n’est pas voilée. 


Exemple: Affichage de l’heure ayant un nombre de secondes au sommet de SN 


la pile. 


: SEXIAL 6 BASE ! ;[ReturmlOK 
00 # SEXTAL # DECIMAL 58 HOLD ;|Return]JOK 
: SEC <# :00 :00 #S #> TYPE : [Return] OK 


14875. SEC (Return|4:07:55 OK 


Le mot SIGN va nous permettre de travailler sur des nombres signés. 
I teste le signe de la troisième cellule de la pile et insère son code dans la 
chaine de caractère en construction. 


Les différents types d’utilisation du formattage sont : 


Type de nombres à éditer 


; 1 edi Préparation 


32 bits non signé ES 


SWAP OVER DABS 
16 bits non signé 0 


DUP ABS 0 


31 bits signe 


16 bits signé 


58 


EUess - à 


ER 


NS EL M CE TER EE EN DE AO EC RE A 
TONER VISE SALES AN RER TN RENE PAT EPP LEE EAST EE EP NEEr LEE AEP RTE UE REC er SRE Ne ES ED 
Are Ro Vpn Re D PE M PR ee ANR Re COR DUR LL Se AE A ANA AT 


D 


| 
| 
| 
| 
| 
| 


| 
} 


| 


- 


| VARIABLE 


on 
a 


Mot 


@ 


HEX 


| DECIMAL 


! 


C@ 


CONSTANT 


DROP 


SWAP 


OVER 


ROT 


2DUP 


2DROP 
2SWAP 


. ÉSU. DU -..APi.…. II 


@( Ad——— Val ) 
7? ( Ad———) 


HEX 
DECIMAL 
| ( Val Ad——— ) 


C@ ( Ad——— Val ) 
C! ( Val Ad ——— ) 


Val CONSTANT Nom 
Val VARIABLE Nom 


DUP (n—-—--nn) 
DROP (n——-— ) 


SWAP (ni n2 


n2 ni ) 
OVER ( nin2 
nln2ni ) 
ROT (nln2n3 
n2n3ni) 
2DUP (d 
dd) 
2DROP ( d——— ) 
2SWAP ( di d2 


d2di ) 


Lit, sur 16 bits, la valeur contenue à 
l’adresse mémoire située au sommet de 
la pile, et la range au sommet de la pile 


Lit, sur 16 bits, la valeur contenue à 
l’adresse mémoire située au sommet de 
la pile, et l’affiche à l’écran. 


La base courante devient hexadecimale. 
La base courante devient decimale. 


Range, à l’adresse mémoire située au 
sommet de la pile, la valeur sur 16 bits 
qui la suit dans la pile. Ces deux élé- 
ments sont consommés dans l’opération 


Lit, sur 8 bits, la valeur contenue à 
l’adresse mémoire située au sommet de 
la pile, et la range sur la pile. 


Range, à l’adresse mémoire située au 
sommet de la pile, la valeur sur 8 bits 
qui la suit dans la pile. 


Définit une constante appelée ” Nom”, et 
lui affecte la valeur ” Val”. 


Deéfinit une variable appelée ” Nom”, et 
lui affecte la valeur * Val”. 


Duplique le sommet de la pile. 


Dépile la valeur située au sommet de la 
pile. 


Intervertit les deux valeurs situées au 
sommet de la pile. 


Recopie le deuxième élément de la pile 
au sommet de la pile. 


Effectue une permutation circulaire des 
trois cellules du sommet de la pile. 


Duslique un mot en double longueur 
sur la pile. 


Dépile un mot en double longueur. 


Intervertit les deux mots en double lon- 
gueur au sommet de la pile. 


99 


Mot 


2ROT 


H 


HOLD 


DR 


R> 


MOD 


20OVER 


Syntaxe 


2OVER ( di d2 
dl d2di ) 
2ROT ( di d2 d3 


d2d3d1i) 


HOLD (c——— ) 
LR, dns ) 
| rs( ——— n) 
| R> ds: ——-— n ) 
rs:( n ——— ) 
+ (nl n2 
nl+n2 ) 
— (nilni 
L nl-n2 ) 
x (nln2 
ln ) 
/ (nin2 
E(nl/n2) ) 
MOD ( nln2 
R(n1/n2) ) 


Définition 


Recopie le deuxième élément, en double 
longueur, de la pile, au sommet de la 
pile. 


Effectue une permutation circulaire des 
trois mots en double longueur situés au 
sommet de la pile. 


Début de formattage des nombres. 
Attend un nombre signé sur 32 bits sur 
la pile. 


Chaque # déclenche la production d’un 
chiffre. Des zéros seront systématique- 
ment produits s’il ne reste pas assez de 
chiffres. 


Format libre : chaque chiffre est conver- 


ti en un caractére. 


Insère un caractère dont le code ASCII 
est sur la pile dans le formattage. 


Insère un signe moins, si le troisième 
nombre dans la pile est négatif. Généra 
lement utilisé juste avant #>. 


Fin du formattage. L’adresse de la 
chaîne produite, et le nombre de carac- 


tères sont dans la pile, prêts pour TYPE. 


Transfert la valeur au sommet de la pile 
de données vers la pile de return. 


Transfert la valeur au sommet de la pile 
de return vers la pile de données. 


Addition des deux éléments au sommet 
de la pile. Les opérandes sont consom- 
més et le résultat est rangé au sommet 
de la pile. 


Soustraction des deux éléments au som- 
met de la pile. 


Multiplication des deux éléments au 
sommet de la pile. Le résultat est range 
au sommet de la pile. 


Division entière des deux éléments au 
sommet de la pile. Le résultat est rangé 
sur la pile. 


Reste de la division entière des deux élé- 
ments situés au sommet de la pile. 


*/ 


ABS 


_ NEGATE 


MIN 


MAX 


2% 


2/ 


0> 


Syntaxe 


/MOD  ( nin2 
E(n1/n2) 
R(n1/n2) ) 
*/ (nin2n3 
nlen2/n3 ) 


ABS (n———nl) 


NEGATE (n——— -n) 


MIN (nin2—-—-min ) 


MAX ( nln2——-—max ) 


1+ (n——-n+1) 


1 (n—-—n-1l ) 


2+ (n——-n+2) 


2 (ne =n2) 


2x (n———2*«n ) 


2/ (n——-n/2) 


= (nin2——-b) 
> (nlin2——-b) 
> (Cnln2-b.) 
0O= (n——-b) 


0O> (n———-b) 


Effectue une division des deux éléments 
situés au sommet de la pile. Retourne le 
quotient et le reste. | 


Multiplication du deuxième par le troi- 
sième élément de la pile, puis division 
du résultat par le premier élément. 
Calcul intermédiaire sur 32 bits. 


Retourne la valeur absolue du sommet 
de la pile. 


Change le signe du sommet de la pile. 


Retourne le minimum de deux paramé- 
tres chargés dans la pile. 


Retourne le maximum de deux paramé- 
tres chargés dans la pile. 


Ajoute 1 à la valeur située au sommet 
de la pile. 


Retranche 1 à la valeur située au som- 
met de la pile. 


Ajoute 2 à la valeur située au sommet 
de la pile. 


Retranche 2 à la valeur située au som- 
met de la pile. 


Multiplication par 2 du sommet de la 
pile (décalage arithmétique de 1 posi- 
tion à gauche). 


Division entière par deux du sommet de 
la pile (décalage arithmétique de 1 posi- 
tion vers la droite). 


Teste l’égalité de deux paramètres en 
simple longueur (16 bits). Retourne un 
booléen sur la pile. 


Comparaison de deux paramètres en 
simple longueur (16 bits). Retourne un 
booléen sur la pile. 


Comparaison de deux paramètres en 
simple longueur (16 bits). Retourne un 
booléen sur la pile. 


Teste la nullité d’un paramètre en 
simple longueur (16 bits). Retourne un 
booléen sur la pile. 


Compare un paramètre à zéro. Re- 
tourne un booléen sur la pile. Ç A 
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Syntaxe 


AND 


OR 


NOT 
XOR 


13 


| DNEGATE 


DABS 


DMAX 


DMIN 


D— 


DO— 


D< 


DU< 


M/ 


Mx 


a 
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O0 (n—-—-b) 


AND (niln2 


nl ANDn2 ) 
OR (nin2 


nl OR n2 ) 
NOT (bb) 
XOR ( nl n2 


nl XOR n2 ) 


D+ ( di d2 
—di#d2:) 


D— ( did2 
——— di-d2 ) 


DNEGATE ( d 


DABS (d 
Joli) 


( dI d2 
——— Max ) 


DMIN ( did2 
——— Min ) 


DMAX 


D<  ( di d2 


DU<  ( ud! ud2 


(dn——-d) 


M (dn——n ) 


Mx (nin2——-q) 


————— 


mm 


Définition . Mot Syntaxe 

Compare un paramètre à zéro, Re- L. Mx/ (dnu———d) 
tourne un booléen sur la pile. fe 

AND logique de deux paramètres en 2 

simple longueur. . SSD ( 

: EUR 
OR logique de deux paramètres en . U. ( 
. (u——— 


simple longueur. 


Ux (ulu2——-—ud) 


Inverse un booléen. Équivalent à 0—. 


Ou exclusif de deux paramètres en 
simple longueur. 


U/MOD ( udul 


L ——— u2 u3 
Addition sur 32 bits. | 
Soustraction sur 32 bits. U<_ U< (ulu2———b) 
Changement de signe sur 32 bits. IF xxx IP CD) 

ELSE yyy 
Valeur absolue sur 32 bits. re 
Maximum de deux vale | 
urs sur 32 bits. DO (nin2-——- ) 
: LOOP (——) 
Minimum de deux valeurs sur 32 bits. 
Comparaison sur 32 bits. Retourne un 
flag sur la pile. DO..+LOOP| DO (nln2——— ) 
Teste la nullité d’un paramètre sur CN on 
32 bits. 
Comparaison sur 32 bits. FOR 
AGAIN | AGAIN ( ——— ) 
Affichage d’un nombre sur 32 bi NE 
ne UNTIL|UNTIL (b--—- ) 
Test sur des nombres non-Signés sur i 
32 bits. 

: BEGIN ( —-— 
Additionne un nombre sur 32 bits aun WHILE yyy | WHILE (b——— ) 
nombre sur 16 bits. Retourne un résul- 
tat sur 32 bits. | 
Divise un nombre sur 32 bits par un 
nombre sur 16 bits. Le résultat est sur 
16 bits. Toutes les valeurs sont signées. 

KEY (——-c) 


Multiplie deux nombres sur 16 bits et 
fournit un résultat sur 32 bits. 


Définition 


Muitiplie un nombre sur 32 bits par un 
nombre sur 16 bits, puis divise le résul- 
tat, sur 48 bits, par un nombre sur 
16 bits. Le résultat est sur 32 bits. 


Convertit un nombre de 16 bits à 
32 bits. 


Affiche un nombre non signé en simple 
longueur. 


Multiplie deux nombres non-signés en 
simple longueur, et retourne un nombre 
signé en double longueur. 


Divise un nombre non signé sur 32 bits 
par un nombre non-signé sur 16 bits. 
Retourne le quotient et le reste, en 
simple longueur, non-signés. 


Compare deux nombres non-signés en 
simple longueur. 


Si le booléen au sommet de la pile est 
vrai au moment de l’exécution de IF, la 
clause xxx est exécutée. Sinon, c’est 
yyy qui est exécutée. Dans tous les cas, 
l'exécution continuera avec zzz. 


Structure de boucle finie. La clause 
encadrée par DO et LOOP sera effec- 
tuée tant que index est strictement infé- 
rieur à fin, avec incrémentation automa- 
tique de index à l’exécution de LOOP. 


Même chose, mais l’index est augment 
de la valeur présente sur la pile au mo- 
ment de l’exécution de +LOOP. 


Boucle infinie. 


Boucle infinie, avec possibilité de sortie 
si le booléen présent sur la pile au mo- 
ment de l’exécution de UNTIL est vrai. 


Boucle infinie. La clause xxx est tou- 
jours exécutée. Si le booléen présent sur 
la pile au moment de l’exécution de 
WHILE est VRAI, la clause yyy sera 
elle aussi exécutée. 

Le bouclage s’arrête si ce booléen est 
FAUX. 


Retourne sur la pile la valeur ASCII du 
prochain caractère accessible issu du 
périphérique courant d’entrée. 


C3 


OI ntax: 


EXPECT 


WORD | WORD (c-———Adr) 


TEXT TEXT (c———) 
DUMP DUMP ( Adrn——— ) 
COUNT COUNT ( Adr —-—— 
Adr+lu) 
EMIT EMIT ( c——— ) 


—TRAILING | -TRAILING 
( Adr ul —— 
Adr u2 ) 


TYPE |TYPE ( Adru——— ) 


EXPECT ( Adru——— ) 


ee æ 


Dejinition 


Attend que u caractères soient dispo- 
nibles ou qu’un retour chariot soit ren- 


contré, et les range à l’adresse indiquée. 


Lit un mot dans l’input stream, en uti- 
lisant le caractère indiqué comme déli- 
miteur. La chaîne est alors rangée à 
l’adresse pointée par HERE, avec sa 
longueur en tête. L’adresse de rangement 
est retournée sur la pile. 


Lit un mot dans l’input stream, en uti- 
lisant le caractère indiqué comme déli- 
miteur, remet le PAD à blanc, et y 
range le mot trouvé. 


Affiche le contenu des n premières cel- 
lules mémoire à partir de l’adresse Adr. 


Prépare les paramètres nécessaires pour 
TYPE. À l'adresse fournie, on trouvera 
la longueur de la chaïne. 


Affiche le caractère dont le code ASCII 
se trouve au sommet de la pile. 


Recalcule la longueur d’une chaîne éli- 
minant tous les caractères blancs en fin 
de chaîne. 


Affiche u caractères à l’écran, à partir 
d’une adresse donnée. Ne pas confondre 
avec DUMP. 


.n-RCise la 
Quel est l'état de la pile après les séquences suivantes: 


à) 1 2 3 ROT SWAP OVER ROT DROP 
b) 1 2 3 OVER + ROT OVER « SWAP DROP 
c) 1 2 3 « OVER ROT DROP / 

d) 12 3 + SWAP 5 — « 

e) 21 43 56 + 120 /MOD SWAP . ... 


f 1 2 3 4 2OVER + SWAP — 2DUP 


EXERCICE 2: 


Les variables étant empilées c | 
permette d'évaluer chacune des expressions suivantes : 


omme indiqué, écrivez un mot FORTH qui 


a) (abcd——-—) 
((a+c)*b}/(c+d) 


b) (abcde——-—) 
((c+e)+(a+c)}/(b+d})+(a+c}/e) 


c) (abc—-——) 


({(a+c)*«b)+(c+b}}/((a+cla) 


EXERCICE 3: 


a) Écrire un mo 
mémoire à partir de l'adresse Ad. 


t FORTH qui calcule le minimum de N valeurs situées en 


Début : ( Ad n ——-— }) 
FIN : { ——— Min ) 


b) Écrire un mot qui lui calcule le maximum de ces valeurs. 


EXERCICE 4: 


a) Écrivez la soustraction de deux nom 
b} Écrivez «/MOD en FORTH. 20; 


bres situés sur la pile sans utiliser — . 
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EXFPYCE = 
a) Écrivez un mot qui remplit de O une zone mémoire de N cellules com- 
mencçcant à l'adresse Ad. 
( Ad N ——— ) 


b) Ecrivez un mot qui incrémente de 1 cette même zone mémoire. 
( Ad N ——— |) 


EXERCICE 6: 


a) Ecrivez un mot qui calcule le PGCD (Plus Grand Commun Diviseur) 
des deux nombres entiers simple longueur du sommet de la pile. 


( N1 N2 —__ PGCD ) 
b) De même écrivez un mot qui calcule le PPCM (Plus Petit Commun 
Multiplieur). 
( N1 N2 ——- PPCM |) 


EXERCICE 7: 


Définissez le mot DIV qui effectuera la division réelle de deux nombres 
entiers simple longueur, avec quatre chiffres après la virgule. 


La syntaxe à l'utilisation devra être de la forme: 
10 3 DIV {Return|3.3333 OK 


On utilisera la structure DO ——— LOOP, en multipliant à chaque pas le 
reste par 10, et en effectuant les tests adéquats pour afficher le point décimal 
et pour sortir de la boucle (LEAVE). 


EXERCICE 8: 


Reprendre l'exercice précédent en utilisant la structure BEGIN ———- 
UNTIL. 


EXERCICE 9: 


Reprenez l'exercice 7 avec la structure BEGIN —-—-— WHILE ——— 
REPEAT. 


LAxznCICE 10: 


Définissez le mot CONV qui affiche la valeur binaire du nombre simple 
longueur situé sur la pile (sans utiliser BASE, tricheur !). 


Exemple: 22 CONV{Return| 10110 OK 


EXERCICE 11: 


Définissez le mot PREMIER qui affiche en décimal tous les nombres pre- 
miers entre O et 100. 


EXERCICE 12: 


Définissez le mot ANALYSE qui affichera le nombre de voyelles, le 
nombre de consommes et le nombre de blancs contenus dans la chaîne de 


caractères qui le suit. 


La syntaxe d'utilisation sera donc: 


ANALYSE ‘chaîne de caractères" [Return 


CT 


63 


IV 


LES VOCABULAIRES 
DE BASE 


IV.1. L'ÉDITEUR 


IV.1.1. Nécessité de garder les sources 


Vous avez certainement constaté que, jusqu’à présent, il vous est 
impossible de modifier la définition d’un mot sans avoir à la redéfinir 
complètement. 


FORTH est un compromis entre la compilation et l'interprétation. 


On pourrait donc imaginer, dans la lignée des langages interprétés 
(BASIC par exemple), la possibilité de pouvoir ” appeler” le texte d’une 
définition de mot, et d’y apporter des modifications dont la prise en compte 
ne remette pas en cause le reste de l’environnement. 


Cette exigence est incompatible avec un langage évolutif comme 
FORTH. Le principal obstacle est lié au mode d’implantation en mémoire 
du dictionnaire : les définitions, de longueur variable, s’accumulent consécu- 
tivement. Tout changement dans la longueur d’une définition peut entrainer 
de grosses manipulations de mémoire et d’inextricables modifications de 
pointeurs. | 


C’est pour cette raison que l’on ne peut disposer des outils de rédaction 
de mots dérivés des interpréteurs. 


La solution est de conserver dans une zone mémoire réservée à cet effet 
le texte source des définitions. Des procédures permettront de traiter ces tex- 


tes et de lancer leur semi-compilation, afin de mettre à jour le dictionnaire. 9 


#0 


I faut hien entendr: trou in cc—-"omis ‘ele sd  etl 
mémoire interne disponible pour répartir le texte entre la mémoire vive utili- 
sateur et la mémoire auxiliaire de masse (disques principalement). 


Pour avoir la plus grande souplesse, il est convenu de découper le 
texte en pages et de confier à la machine la gestion de ces pages de sorte que 
l'accès soit totalement transparent pour l'utilisateur. 


Les spécialistes reconnaîtront là une gestion simplifiée de mémoire 
virtuelle. 


Les pages de texte se présentent donc comme un livre que peut feuille- 
ter l'utilisateur sans avoir à se soucier de l'emplacement physique d’une page 
au moment de l'appel. 


1V.1.2. Principe de fonctionnement 


Dans la plupart des FORTH sur micro-ordinateurs, le nombre des 
pages résidentes en mémoire utilisateur est fixé et la taille d’une page corres- 
pondra à la taille de l’écran physique du terminal. 


Pour des raisons de transparence, il est nécessaire d’implanter un 
algorithme de recouvrement des pages. 


La numérotation des pages est choisie en relation avec les numéros 
d'ordre d'implantation physique sur le disque. 


Notons tout de suite qu’une machine puissante sera capable, de par 
son système d’exploitation, d’offrir des possibilités plus étendues (appel par 
nom par exemple). 


Pour présenter clairement l’algorithme d’implantation en mémoire 
d’une nouvelle page, nous supposerons reconnus les mots FORTH suivants, 
dont les définitions dépendent trop du système d’exploitation de la machine 
pour être détaillées ici: 


NMAX Constante donnant le nombre maximum de pages 
pouvant résider simultanément en mémoire 
centrale. 

NCHARGE Variable donnant le nombre de pages résidentes 


en mémoire centrale, à tout instant. 


Variable donnant l'emplacement destiné à la 
prochaine page. 


PREMS 


vi letUuiriant SU: 14 pile uit itag inaiquant si 14 
page se trouvant à l'adresse PREMS a été modifiée 
sans être sauvegardée. 


FL... 4EMC 


Mot mettant à jour la variable PREMS après un 
chargement. 


MODIFPREMS 


Mot exécutant un chargement de page en mé- 
moire centrale à l'adresse spécifiée au sommet de 
la pile. 


MEM<—DISC 


Mot exécutant la copie sur disque de la page 
spécifiée au sommet de la pile. 


DISC<-—-MEM 


L’algorithme s’écrit alors de façon très simple: 
: CHARGE 
NCHARGE @ NMAX@ < 
IF 
NCHARGE DUP@  1+ SWAP ! 
THEN 
FLAGPREMS 
IF PREMS @ DISC<—MEM THEN 
ELSE 
PREMS @ MEM<-—DISC 


MODIFPREMS 


: [Return] OK 


C’est bien sûr dans MODIFPREMS que réside le cœur de l’algorithme 
de recouvrement. Les grandes orientations dans la résolution de ce problème 
sont : 


— Allocation FIFO (First In — First Out): C’est la plus ancienne des 
pages résidentes que l’on remplace. 


— Allocation statistique : c’est la moins fréquemrr ent utilisée que l’on 
remplace. 


— Allocation hiérarchisée : c’est la page de priorité la plus faible que 
l’on remplace. 5 


Remarquons toutefois pour finir que les systèmes d'exploitation utili- 
sent en général une combinaison de ces différentes méthodes, l’algorithme (7A 
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JOUV mêr volu  ynar . me In Ç€ , mist. _-s te... de 
réponses. 


En FORTH, on dispose des commandes de gestion de page suivantes : 


LIST Cherche une page en mémoire centrale, la charge 
si elle n'est pas résidente, et affiche son texte à 
l'écran. 

LOAD Cherche une page en mémoire centrale, la charge 


si elle n’est pas résidente, et déroute son texte 
vers l'interpréteur. 


FLUSH Copie sur disque toutes les pages résidentes en 


mémoire centrale qui ont été modifiées. 


EMPTY-—BUFFERS  Initialise la mémoire de pages. 


1V.1.3. Les commandes 


Toutes les commandes décrites ci-après sont regroupées dans le voca- 
bulaire EDITOR. Avant de vous plonger dans la lecture de ce chapitre, 
assurez vous dès maintenant que ce vocabulaire est bien disponible sur votre 
machine. 


Sous une forme évoluée, les éditeurs peuvent s’apparenter à de véri- 
tables traitements de texte. Nous n’aborderons ici qu’un type d’éditeurs 
assez rustiques, souvent utilisés dans le monde de l’informatique. 


Les commandes de notre éditeur vont utiliser deux buffers spécialisés : 
l’INSERT BUFFER (buffer d'insertion), et le FIND BUFFER (buffer de 
recherche). 


De façon classique, les déplacements à l’intérieur d’une ligne se font 
par l’intermédiaire d’un pointeur de position représenté à l’écran par un 
caractère spécial inséré avant le caractère pointe. 


Avant tout travail sur une page, il faut appeler la page choisie à 
l’écran, à l’aide de la commande LIST. 


La page va alors apparaître à l’écran, toutes les lignes étant numé- 
rotées dans la marge. 


Vous pouvez éventuellement mettre tout le contenu initial de la page à 
blanc en utilisant la commande WIPE. Cette commande n’agit que sur la 
page sélectionnée grâce à LIST. 


180 LIST 'Return 


O1 À © ND) — 


texte de la page 


15 
16 
ok 


Pour modifier le contenu d’une ligne, vous devez d’avord la sélection- 
ner à l’aide du mot T (Take). 


Exemple : 
5 T(Retum 
À ; 5 OK 


Ce mot affiche le contenu de la ligne choisie, et positionne le pointeur 
en début de ligne, avant le premier caractère. 


Pour écrire dans la ligne, on utilise le mot P (Put): 


P TOTO [Retum]Ok 


5 TRetum) 


À TOTO 5 OK 


Le mot P place la chaîne de caractères qui le suit dans l’INPUT BUF- 
FER, puis copie ce dernier au début de la ligne courante (le contenu précé- 
dent de la ligne est perdu). 


Une méthode pour mettre à blanc une ligne est de taper la commande 
P suivie d’un espace blanc. 


P (Retumjok 


Une façon d'utiliser le mot P consiste à le faire suivre immédiatement 
de . L'INPUT BUFFER n’est pas modifié, et son contenu est placé 
au début de la ligne courante. 


Cette astuce peut être trés utile pour copier le contenu de l’INPUT 


BUFFER d’une ligne sur une autre. 7 à 


He 


r [Re 


P COUCOU|Return|OK 


5 T{Return| 


À 5 OK 
P'Return OK 


180 LIST|Return 


IARINIES 


4 COUCOU 
5 COUCOU 


— 
O1 


Rio 


Le déplacement dans la ligne se fait grâce au mot F (Find), qui posi- 
tionne le pointeur après la première occurrence d’une chaine donnée, en 
commençant la recherche à la position courante du pointeur. 


4 T[Return 


ACOUCOU 4 OK 
F CO 
COTcOU 4 OK 


La commande I permet d’insérer une chaîne dans une ligne après la 
position courante du pointeur. Il n’y a pas de report d’une ligne sur une 
autre si l'insertion provoque un débordement dans une ligne. 


| UCO [Return 


coucoÂcou 4 OK 
| 
coucoucoAcou 4 OK 


Encore une fois, vous aurez noté que les commandes suivies immédia- 
tement de{Return |travaillent directement sur le contenu des buffers sans les 
modifier. 


Après avoir localisé une chaîne dans la ligne courante grâce à F, il est 
possible de la supprimer par la commande E: 


ElHeturn | 


coucoÂucou 4 OK 


Ces deux actions sont combinées dans la commande D: 


D UC [Return 


coucoAoU 4 OK 


ma 


Une commande plus élaborée permet d’effacer une partie de la ligne : 
TILL efface tout le contenu de la ligne depuis la position courante du cur- 
seur, jusqu’à et y compris la première occurence d’une chaîne donnée. 


4 T|Return] 
ACOUCOU 
P MAIS OU ET DONC OR NI CAR [Return|OK 


F ET |Return 


MAIS OÙ ET À DONC OR NI CAR 


TILL OR [Return] 


MAIS OÙ ET À NI CAR 


ES 


OK 


ne 


h 
O 
A 


| 


ES 


O 


ct | 


Pas 


La commande XCH permet de faire des remplacements de chaïines 
dans une ligne. Elle place une chaine donnée dans l’INSERT BUFFER, et 
la replace dans la ligne courante, en remplacement de la chaîne couramment 
pointée, contenue dans le FIND BUFFER. L'opération se passe en deux 
temps: La chaîne contenue dans le FIND BUFFER est supprimée de la 
ligne, puis celle contenue dans l’INSERT BUFFER est insérée à la position 
courante du pointeur. 


Comme dans les cas précédents, le paramètre est optionnel. XCH peut 
travailler directement sur le contenu courant de l’'INSERT BUFFER. 


Exemple : 
5 T\Retum | 5 OK 
P LE CHASSEUR CHASSE|Return|OK 


F CHASS 


LE CHASSAEUR CHASSE 5 OK 


XCH PECH 


LE PECHÂAEUR CHASSE 


F6 


ligne. 


En né, un au 1__.,ituls.… Les d..,.,untes ivuctions. 

Syntaxe Action sur les buffers Description | 
P (ut) chaîne —> I.B. Introduction d’une ligne. i 
F (ind) chaine —> F.B,. Recherche du contenu de F.B. dans une ligne. | 
I (nsert) chaine —> I.B. Insertion du contenu de I.B. dans une ligne. : 
|E (rase) Suppression du contenu de F.B. dans une 


Combinaison de F et E. 


D (elete) chaine —> F.B. 
Re chaîne —> ].B. Combinaison de E et I. 

Lorsque l’on introduit un texte dans une page vierge, il est agréable de 
voir les lignes s’incrémenter automatiquement. 


Le mot P ne répond pas à ce souhait, puisqu'il suppose que la ligne a 
été au préalable sélectionnée à l’aide de T. Par ailleurs il ne touche pas au 
pointeur de la ligne courante. 


Le mot U comble ces lacunes : il insère la chaine dans la page après la 
ligne couramment pointée en décalant toutes les lignes suivantes vers le bas, 
et incrémente le pointeur de ligne. 


Les lignes qui sortent de l’écran sont perdues. 


La commande X a la fonction inverse: Elle supprime la ligne cou- 
rante, et décale les suivantes vers le haut d’un cran. 


La ligne courante n’est toutefois pas perdue : Elle se trouve dans l’IN- 
SERT BUFFER, prête à être replacée. 


WIPE, comme nous l'avons vu, a une action plus radicale puisqu'il 
efface tout l’écran. 


Le mot L, abrégé de LIST, édite la page courante, sans avoir besoin de 
préciser son numéro. 


Pour passer à une page voisine, on utilisera N et B qui incrémente et 
décrémente respectivement le numéro de page courante. 


Pour déplacer une ligne d’un écran à un autre, on peut utiliser le mot 
M (MOVE), qui opére sur la ligne courante, et nécessite deux paramètres : 
Le numéro de page destination, et le numéro de ligne dans cette page après 
laquelle il fera l'insertion. 


S pour sa part sert à faire des recherches systématiques d’une chaîne 
sur des écrans consécutifs. 


Les pdraMiou ces à I ivurnir sun le Nuvi O AU uu ler Ëui au OÙ $ upere 
la recherche, et la chaîne à chercher. 


IV.2. L'ASSEMBLEUR 


Vous avez remarqué que FORTH, langage évolué s’il en est, dispose 
d'un certain nombre de mots qui permettent de descendre à un niveau trés 
proche de l’architecture de la machine. (ex: manipulation des cellules 
mémoire, accès aux ports d’E/S etc...). 


Il existe cependant certains cas de figures où seul un véritable assem- 
bleur peut résoudre les problèmes par exemple : 


— Vous souhaitez accélérer l’exécution de vos procédures en optimi- 
sant le code généré par élimination des indirections. C’est par exemple le cas 
de la connexion de périphériques à très fort débit, ou le traitement des 
interruptions. | 

— Vous avez besoin d'accéder aux registres internes du processeur : 
Le cas classique est le déroutement par modification du PC. 


La nécessité de l’acces à l’assembleur étant entendue, nous allons satis- 
faire devant vous à ce besoin, dans le cadre de la philosophie FORTH. 


Les BASIC standards apportent une réponse à ce problème de la façon 
suivante: La procédure écrite en langage machine étant résidante en 
mémoire et de préférence terminée par RET, une instruction BASIC permet 
de se dérouter sur cette routine en modifiant le contenu de PC, sous une 


forme assimilable à un CALE. 


Il est souhaitable que cette routine ait été sérieusement testée au préa- 
lable car vous ne disposez en BASIC d’aucun outil évolué de type Editeur- 
Assembleur pour la mettre au point. 


La solution de base équivalente qu'offre FORTH est beaucoup plus 
souple car elle va permettre de générer le code machine depuis FORTH. 


Quels sont les outils dont nous avons besoin pour cela ? 


Un premier devra permettre de signaler à l’interpréteur que ce qui suit dans 


la définition du mot n’est plus du FORTH à proprement parler, mais du 


code directement exécutable. 
Un second, et dernier, devra permettre d’intégrer le dit code dans le diction- 
naire, à la suite dans la définition. 97 
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": pren outil ‘em OL 


Arrétons-nous quelques instants sur le comportement assez particulier 
de ce mot. Nous allons voir qu’il a en fait deux actions différentes selon que 
nous sommes dans une phase de compilation, ou dans la phase d’exécution 
du mot qui le contient. 


Pendant la phase de compilation du mot considéré, ;CODE va simple- 
ment signifier à l’interpréteur que la définition du mot est terminée, sans tou- 
tefois la valider comme l’aurait fait  ; 


C’est là qu'intervient notre deuxième outil, à savoir les mots C,et . 
qui transférent le contenu du sommet de la pile, respectivement sur un et 
deux octets, à la suite du dictionnaire. 


À l'exécution du mot ainsi défini, la rencontre de ;/CODE va signaler à 
l'interpréteur que la suite de la définition n’est composée que d'instructions 
machine, a exécuter immédiatement. 


Il est très important d’ores et déja de bien assimiler ce double compor- 
tement. Nous le retrouverons plus détaillé dans les chapitres suivants. 


La structure générale d’une définition contenant du code-machine est 
donc : 


: MOT liste de mots):CODE xx C, xxxx, (etc...) 


où xx et xxxx représentent les codes objets exprimés dans la base courante. 


Vous constaterez qu'il n’y a pas de mot de fin de définition après votre 
code, et que vous devez donc prendre en charge vous même le retour a l’in- 
terpréteur FORTH. 


Pour ce faire, 1l vous suffit de terminer votre code par celui d’un saut 
au point d'entrée de l’interpréteur FORTH. 


D'autre part il est bien évident que vous devrez dans bien des cas com- 
mencer par sauvegarder tous les registres avant de les utiliser, et les restau- 
rer à leur valeur initiale avant de retourner à l’interpréteur. 


Exemple : 


Prenons le cas de l’assembleur Z 80 bien connu, et donnons nous 
comme problème très simple la mise à zéro de la zone mémoire qui s’étend 
de FA10 à FABO. (Nous vous conseillons de vous assurer au préalable que 
cette zone est inoccupée...). 


. Il est donc alors possible de com- 
pléter cette forme provisoire de la définition par des instructions machine. 


Le programme Assembleur correspondant s'écrit: 


LD HL, FA10 2110 FA 
LD DE, FA11 11117FA 
LD BC,AO 01 AO 00 
LD (HL),0 36 00 
LDIR ED BO 


Supposons que le point d’entrée de 7 ait comme adresse 


D S6000. Pour que votre procédure soit intégrable à FORTH, elle devra se pré- 


senter sous la forme : 


PUSH BC C5 
PUSH DE D5 
PUSH HL E5 


corps de la procédure ci-dessus 


POP HL ET 


POP DE D1 
POP BC C1 
JP 6000 63 00 60 


Vous définirez donc finalement le mot de la manière suivante: 


HEX [Return]OK 
: ZERO :CODE 


C5 C, D5 C, E5 C, 21 C, FA10,11 C,FA11;, 
01 C, O0OAO , 36 C, O0 C, EDBO ,E1 C, D1 C, 
C1 C, C3 C, 6000, 


Return] ok 


Vous pouvez maintenant être tenté d'exécuter ZERO. 

Malheureusement, un message d’erreur apparaït qui indique que la 
machine n’a pas trouvé une définition correcte dans le dictionnaire. Il faut 
savoir en effet qu’il existe un flag pour chaque mot dans le dictionnaire qui 
indique la validité de sa définition. 


L’interpréteur construit une définition de mot dans le dictionnaire en 
analysant séquentiellement tous les mots de la ligne. Au cours de cette ana- 
lyse, il se peut qu’un mot soit rejeté et donc le début de la définition, bien 
que présent dans le dictionnaire est inutilisable. 


C’est la raison pour laquelle le flag de validité n’est positionné que lors 
de la rencontre du mot ; 
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Vous avez constaté qu’il n’y avait pas de mot de fin de définition pour 
un mot englobant du code. Vous comprenez donc pourquoi le flag n’est pas 
positionné. 


Qu’à cela ne tienne, un mot FORTH permet de forcer artificiellement 
le flag de validité du dernier mot du dictionnaire : c’est le mot SMUDGE. 


SMUDGE Feturm]ok 
ZERO [Return] OK 


Le mot ZERO a été cette fois bien exécuté. 


Cette façon d'intégrer du code dans une définition bien qu’opération- 
nelle, est pénible à mettre en œuvre. 


La première idée qui vient à l’esprit pour éliminer la phase de transco- 
dage des codes objets correspondant aux mnémoniques est de créer les mots 
FORTH adéquat. 

Par exemple : 

LD HL, FA10 ( — 21 10 FA ) 


peut être facilement réalisé en créant le mot FORTH. 
. LDHL 21 C, :[Return|OK 


Pour intégrer le code dans la définition, vous taperez cette fois: 


sine LDHL FA10 , 


Une solution consiste donc à disposer d’un vocabulaire ASSEM- 
BLEUR complet, regroupant tous les mots de ce type. 


Par exemple : 


: PUSHBC  C5C,  :[RetumJOK 
: PUSHDE  D5C,  ; [ReturnlOK 
: PUSHHL  E5C, ; (Return|JOK 
: LDHL 21C, : [Return|OK 

: LDBC 11C, : [Return|OK 
: LD(HL) 36C, ; (ReturnlOK 

. LDIR EDBO, ; [Return]OK 
: JP CSC; ; [ReturnJOK 
: POPBC EC, : [Return|OK 
: POPDE D1C, : :[ReturnlOK 
: POPHL C1C, ;: [Return|[OK 


Notre exemple devient alors: 


: ZERO ;CODE 
_ PUSHBC 
PUSHDE 
PUSHHL 
LDHL FA10, 
LDDE FA11, 
LDBC AO, 
LD(HL) O0 C, 
LDIR 
POPHL 
POPDE 
POPBC 
JP 6000 , 
SMUDGE/Return|OK 


Cette solution est très répandue sur les micro-ordinateurs. 
Vous imaginez facilement que, si vous ne disposez pas du vocabulaire 
ASSEMBLEUR, il vous sera très facile de le construire de cette façon. 


Par contre, elle présente un certain nombre de faiblesses : 


— il n’y a pas de contrôle syntaxique, sur le nombre d’opérandes par 
exemple 


— il n’y a pas de possibilité d'utiliser des labels et il faut donc calcu- 
ler à chaque fois avec précision les adresses absolues de branchement 


— la syntaxe peut s'éloigner beaucoup de celle de l’assembleur. Vous 
devrez en effet définir non pas autant de mots qu’il y a de mnémoniques, 
mais autant de mots qu'il y a de codes reconnus. 


Sachez également qu’il y a souvent un rapport étroit entre le nombre 
de codes reconnus et le produit du nombre de mnémoniques par le nombre 
total de registres internes. 


Le niveau suivant dans la souplesse d'utilisation consiste à écrire un 
véritable assembleur en FORTH. 


Les mnémoniques et leur syntaxe seront conservés et vous disposerez 
de tous les outils classiques (Labels, variables, constantes, messages 
d’erreur.….). S | 


Ce type de logiciel fait appel à de nombreux résultats théoriques, qui 
s’écartent largement du cadre de cet ouvrage. 


De bonnes bases théoriques ct ‘ne expérience approfondie de FORTH 


et de votre système doivent vous permettre cependant de résoudre le pro- 4 | 


blème. 
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LOAD 


FLUSH 


EMPTY 
—BUFFERS 


EDITOR 
T 


RESUMÉ DU CHAPITRE IV 


Syntaxe | 


* Nopage ” LIST 
LR] N°page LE] LOAD 
FLUSH 


EMPTY-BUFFERS 


EDITOR 
CE N'°ligne LE ‘E 


, 


— P chaîne’ 


— P [Return] 
— PlReturn 


— ] ”chaine” 


— IRReturn 


E 
D Chaine” 


| — F ”Chaïîne” 


— FReturn 


Affiche à l’écran la page demandée, après | 
l'avoir éventuellement chargée du disque, si | 


elle n’était pas résidante en mémoire. 


Compile le contenu de la page demandée, 
après l’avoir éventuellement chargée du 
disque, si elle n’était pas résidente en mémoire. 


Vide les block buffers après avoir sauvegardé 
sur disque ceux qui ont été modifiés. 


Vide les block buffers. 

Rend EDITOR le vocabulaire de contexte. 
Sélectionne la ligne demandée dans la page 
de travail, l'affiche à l’écran et positionne le 
curseur en début de ligne. 


Place ” chaîne” dans l’insert buffer et rem- 
place la ligne courante par ce dernier. 

Vide l’insert buffer et la ligne courante. 
Remplace la ligne courante par le contenu de 
l’insert buffer. 


Insert la chaîne ” chaine” après le curseur 
dans la ligne courante et dans l’insert buffer. 


! 
| 


Insert le contenu de l’insert buffer avant le 
curseur. 

Efface dans la ligne courante la première 
occurence de la chaîne de caractères contenue 
dans le find buffer. 

Efface dans la ligne courante la première 


occurence de la chaine de caractère, après 
avoir placé cette dernière dans le Find Buffer. 


Place la chaîne de caractères dans le Find 
Buffer, en recherche la première occurrence 
dans la ligne courante, et positionne le poin- 
teur de ligne. | 
Recherche la première occurence de la chaîne 
de caractères contenue dans le Find Buffer 
dans la ligne courante, et positionne le poin- 
teur de ligne. 


Définition 


XCH 


M 


 ASSEMBLEUR 


CODE 


SMUDGE 


Syntaxe 
TILL ” Chaine” Efface de la ligne courante tous les caractères 


compris entre la position du pointeur de ligne, 
et la première occurence de la chaîne de 
caractère. 


XCH ” Chaine” Échange dans la ligne courante la chaine de 
caractere contenue dans le Find Buffer par 


celle qui suit la commande. 


U ” Chaine” 


Insère une ligne sous la ligne courante, en res- 
pectant les fonctionalité de P. 


X 


Supprime la ligne courante, et décale les 
suivantes vers le haut. 


L 
N 


Liste à l’écran la page courante. 


Incrémente de 1 le numéro de la page 
courante. 


Décrémente de 1 le numéro de la page 
courante. 


Page Ligne M Insère la ligne courante de la page courante 


sous la ligne spécifiée dans la page spécifiée. 


Rend le vocabulaire ASSEMBLEUR vocabu- 
laire de contexte. 


ASSEMBLEUR 


: <name> …. 
CODE 
<mnémoniques> 


Arrête la compilation, et permet de rentrer, 
soit des mnémoniques assembleur si l’on dis- 
pose du vocabulaire adéquat, soit directement 
des codes exécutables à l’aide des mots ,et C,. 


, (n——) Prend le contenu du sommet de la pile, le 
range dans la première cellule libre du diction- 
naire, et incrémente de 2 le pointeur de fin du 


dictionnaire. 


C, (n—— ) 


Prend les 8 bits les moins significatifs de la 
valeur accessible au sommet de la pile, les 
range dans le premier octet libre du diction- 
naire, et incrémente de 1 le pointeur de fin du 
dictionnaire. 


SMUDGE Inverse le bit de validité de la dernière tête 


de chaîne créée dans le dictionnaire. 


V 


LA MÉCANIQUE 
DU LANGAGE 


V.1. Anatomie 


V.1.1. Memory-Map 


Dans cette partie nous nous proposons d’aborder FORTH sous un 
éclairage purement technique. Vous trouverez des réponses à toutes les 
questions que vous êtes en droit de vous poser quant au fonctionnement et la 
structure interne des outils avec lesquels vous avez pu déjà vous 
familiariser. 


Voyons d’abord comment est implanté géographiquement FORTH en 
mémoire (cf figure). 
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Lé premier bloc, baptisé interpréteur, contient la 
partie ‘vivante ” de FORTH. C'est une minus- 
cule partie de code machine purement exécu- 
table, dans laquelle vous êtes la plupart du 
temps : c'est elle qui assure l'enchaînement de 
tous les mots FORTH. Nous l'aborderons plus 
en détails par la suite. 

Le second bloc est le dictionnaire. Au char- 
gement de FORTH, il contient le FORTH de 
base. || s'étend dans la mémoire au fur et à 
mesure des nouvelles définitions. 

La DATA STACK nous est déjà familière : elle 
se propage en direction du dictionnaire. Son 
accès est réglementé de par sa structure de 
pile. Son adresse de base est dans la USER 
VARIABLE SO, et son sommet (top of stack) 
est accessible grâce au mot SP @ qui place 
au sommet de la pile l'adresse du sommet 
de la pile (11). 


DATA STACK 


TERMINAL 
INPUT BUFFER 


RETURN STACK 


USER 
VARIABLE 


/O BUFFER 


La partie suivante est réservée au BUFFER de clavier de votre terminal: le 
TERMINAL INPUT BUFFER. 


C’est là que FORTH range tous les caractères frappés au clavier. Il ne 
s’intéressera à son contenu que dans deux cas bien précis: 


— soit si le BUFFER est plein, 
— soit si vous avez frappé RETURN. 


Ce buffer de taille fixe, est pointé indirectement par SO. 


Plus bas dans la mémoire, on trouve un bloc de taille variable, appelé 
RETURN STACK. 


C’est là que FORTH empile les adresses successives de retour des 
procedures. 


L'adresse de base est contenue dans la USER VARIABLE RO et son 
sommet est accessible grâce au mot RP @. 


Le bloc suivant comprend toutes les valeurs des USER VARIABLES. 
Les mots qui permettent d'accéder à des valeurs sont bien sûr installés dans 
le dictionnaire. | 


Le dernier bloc est réservé aux BUFFERS d’E/S. C’est là que l’EDI- 
TEUR va ranger les pages que vous appelez. 


g 
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L... D....ctio.. a dicuuvnnais 
Le dictionnaire n’est autre qu’une liste de mots. Chaque nouveau mot 
greffé sur la liste a un lien logique avec le dernier défini. 


Pour démarrer le processus, on postule que la liste contient au départ 
un élément virtuel ” VIDE”. 


L’addition d’un mot nouveau dans le dictionnaire consiste dans la suite 
d'opérations suivante: 


— Lier logiquement le nouveau mot au dernier mot entré. 

— Marquer le nouveau mot comme dernier mot entré. 

Voici comment ce mécanisme est réalisé pratiquement : 

— Le lien logique est par adresses (LINK FIELD ADDRESS). 
— L'élément ” VIDE” a pour adresse 0. (LFA—O). 


— L'adresse du LFA du dernier mot défini est obtenu par l’intermé- 
diaire d’une USER VARIABLE. 

— Bien que rien ne l’oblige, les mots sont implantés de façon séquen- 
tielle pour simplifier la gestion de la mémoire: Il faudra donc également 
connaître le premier emplacement disponible en mémoire (DP). 

L'intérêt de cette structure est qu’elle est non-injective : Plusieurs mots 
de la liste peuvent pointer sur la même adresse, et donc avoir le même 
antécédent. 

Il est donc possible de ramifier logiquement le dictionnaire en vocabu- 
laires avec un seul jeu de pointeurs. (voir $ II.3. et IT.4). 


A titre d'exercice, écrivons un mot FORTH qui compte le nombre de 
définitions actuellement présentes dans le vocabulaire courant. 


: COMPTE 
O CONTEXT @ ( Nb—el pointeur ——— ) 
BEGIN | 
@ PFA 4 — DUP 
WÆHILE 
SWAP 1+ SWAP 
REPEAT 
DROP 


Dans le chapitre II, nous avons présenté le mot FORGET, qui ”’ef- 
face ” du dictionnaire tous les mots définis depuis (et y compris) un mot 
donné. | 
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La COlupiuld Nuvua Mäunvuant sun MÉCuoNe : 


Il met dans DP l'adresse du mot qui précède le mot donné dans le 
dictionnaire. 


Cet élagage du dictionnaire est brutal. Toute recherche dans le diction- 
naire commence par le mot pointé par DP. Tous les mots définis postérieu- 
rement sont perdus. 


Toutefois, FORGET est sécurisé grâce à la USER VARIABLE 
FENCE, qui donne une adresse limite au-delà de laquelle les suppressions 
sont rejettées. 


À l'initialisation, FENCE contient l’adresse du dernier mot du 
FORTH de base. 


Ainsi par exemple, vous pouvez à tout instant protéger tout votre tra- 
vail d’un effacement intempestif en faisant : 


DP @ FENCE !|Return| OK 


V.1.3. Observation d'un mot dans le dictionnaire 


Voyons maintenant la structure d’un mot dans le dictionnaire. 


Tout mot contient deux parties, un en-tête qui permet de l'identifier et 
un corps qui le définit. 
a) en-tête 


Le premier octet contient deux informations : la longueur du nom du 
mot sur les cinq bits de poids faible, et un état du mot sur deux bits. 


7161543210 
QUE LONGUEUR 


29% | 


L’uunsation au SMULGE B1I1 (S) a ete vue dans le chapitre sur 
l'ASSEMBLEUR. 
Il est mis 1 lorsque la définition du mot est valide. 


Le PRECEDENTE BIT (P) est quant à lui lié au concept de mot im- 
médiat, qui sera exposé dans un prochain chapitre. 


Ensuite viennent les caractères ASCII du nom du mot (0 à 31 carac- 
tères), le MSB du dernier octet est positionné à 1 pour signifier la fin de la 
chaine. 


L’adresse du premier octet de l’en-tête est par convention PDACEE NFA 
(NAME FIELD ADDRESS). 

On trouve ensuite la zone qui assure le chainage dans le dictionnaire. 

Elle contient le NFA du mot précédent dans le dictionnaire: 

C’est le LFA (LINK FIELD ADDRESS). 


Le contenu du LFA du premier mot du dictionnaire est bien sûr nul. 


b) Le corps 


L'adresse de début de ce bloc est appelé CFA (CODE FIELD 
ADDRESS). 


C’est là que commencent toutes les données relatives à la fonction du 
mot. 


Ce CODE FIELD peut contenir trois sortes d’informations : 


— soit du code exécutable (mot contenant de l’ASSEMBLEUR) 

— soit des paramètres (cas des variables) 

— soit enfin dans le cas le plus courant, la liste des CFA des mots qui 
le constituent ; 


On distingue artificiellement une adresse supplémentaire, le PFA 
(PARAMETER FIELD ADDRESS), car FORTH intercale entre l’en-tête 
et les paramètres du mot une information sur deux octets dont nous expose- 
rons bientôt l’utilité. Il y a donc toujours une différence de deux entre PFA 
et CFA. 


Il existe un certain nombre de mots qui permettent d’accéder à ces dif- 
férentes adresses. Tous sont construits autour du mot ” (prononcez tick), qui 
retourne sur la pile de PFA d’un mot donné. 
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Exemple : 


HEX [Retu mn OK 
! SWAP . [Return|054B OK 
On construit alors facilement CFA, LFA et NFA de la façon suivante : 


: CFA 2 —; [Return] OK ( PFA——-— CFA ) 


: LFA 2 —; [Return] OK ( CFA ———LFA ) 
: NFA ( CFA——-— NFA ) 
À — 
BEGIN 
DUP 
80 AND O— 
WHILE 
1 = 
REPEAT 
[Return] OK 


NFA explore les octets vers les adresses décroissantes, en cherchant le 
premier dont le MSB est à 1. 


Revenons plus en détail sur le contenu du CFA d’un mot quelconque. 


Le contenu de cette adresse pointe sur un mot dit de définition, mot qui 
dépendra de la nature du mot choisi. 


Si le mot étudié est une variable, l'exécution du mot de définition cor- 
respondant, dont l’adresse se trouve donc dans le CFA, placera sur la pile 
le PFA, à savoir l’adresse où l’on trouvera la valeur de la variable. 


Si le mot étudié est une constante, l’exécution du mot de définition cor- 
respondant placera cette fois sur la pile le contenu de la cellule mémoire 
d’adresse PFA, à savoir la valeur de la constante. 


Si le mot étudié est un mot classique, c’est-à-dire dont la définition 
commence par le mot : , l'exécution du mot de définition enchaïinera 
l’exécution des mots qui composent la définition. 


Comment sont représentés ces mots à l’intérieur de la défintion ? 


Tout simplement par leur CFA respectif. 


Exemple : 


10 VARIABLE POIDS OK 


Le mot POIDS aura donc dans le dictionnaire la structure suivante: 


LFA NFA du mot 
précédent. 


CFA Adrésse mot 
de définition 


PFA+2 Valeur de la 
variable. 


La structure d’une constante sera absolument similaire, seul diffère le 
mot de définition pointé. 


Prenons maintenant le cas d’un mot classique: 
: REPAS ENTREE PLAT DESSERT ; Return] OK 


Le mot REPAS aura la structure suivante : 


La structure du mot dans le dictionnaire étant maintenant connue, 
nous allons pouvoir nous intéresser au fonctionnement de l’interpréteur. 


V.1.4. Fonctionnement interne de l’interpréteur 
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L’interpréteur est alimenté mot par mot (Input Stream). 


7 


11 PEU euViSir ucux tranucnents puuri les murs qui 1ui sont presentes : 
Compilation ou Exécution. Ce choix est déterminé par l’état d’une USER 
VARIABLE : STATE. 


V.1.4.1. Compilation 


Toute définition doit commencer par le mot 


On devine que c’est lui qui va faire passer l’interpréteur en mode com- 
pilation par l’intermédiaire de STATE, après avoir constitué la tête de 
chaîne dans le dictionnaire. 


Tous les mots qui suivent dans l’input stream sont compilés : leur CFA 
est ajouté systématiquement à la position courante du pointeur de 
dictionnaire. 


Vous savez aussi que c’est le mot ; qui termine toute définition: 
c’est lui qui remet l’interpréteur en mode exécution. 


Vous êtes en droit de vous poser la question suivante: 

Si l’interpréteur, après la rencontre du mot , compile systémati- 
quement tous les mots qui suivent dans l’input stream, et que lemot ; est 
un mot FORTH au même titre que les autres, comment peut-il avoir une 
action quelconque sur l’état de l’interpréteur ? 


En fait, le mot ; fait aussi partie de cette classe spéciale de mots 
dits de définition, qui peuvent avoir une fonction différente selon l’état ou se 
trouve l’interpréteur lorsqu'il les rencontre. Nous verrons ces notions dans le 
chapitre VI. 


La fonction compilation de l’interpréteur consiste donc à ajouter en fin 
de dictionnaire le CFA du mot courant de l’input stream. Cette fonction 
élémentaire est réalisée par le mot COMPILE. 


Notons que cette notion d’input stream est large, les mots pouvant être 
entrés à partir du clavier, de pages de l’éditeur (lors du LOAD), ou de tout 
type d'interface. 


Le travail préliminaire consiste à reconnaître le mot dans le dic- 
tionnaire, pour obtenir son CFA. Cette fonction est analogue a celle du 
mot , 


Deux cas peuvent se présenter : 
— le mot existe: pas de problème. 


— le mot n'existe pas, auquel cas, l’interpréteur va chercher si son 


expression est compatible avec un nombre de la base courante. Avant de le 
placer dans le dictionnaire, il y intercalera le CFA du mot spécialisé LITE- 
RAL qui, lors de l’exécution, évitera la confusion de ce nombre avec un 
CFA à exécuter, et le placera au sommet de la pile. 


Le mécanisme qui construit une définition à partir de mots présents 
dans le dictionnaire étant maintenant éclairci, voyons comment ces mots 
sont exécutés. 


V.1.4.2. Exécution 


Que se passe-t-il lorsque vous tapez un mot FORTH sur le clavier de 
votre terminal et que vous lancez son exécution en pressant ? 


L’interpréteur, qui est alors en mode exécution, placera le CFA de ce 
mot au sommet de la pile, et sous-traitera le travail au mot EXECUTE. 


Pour mieux vous représenter son mécanisme, nous allons revenir à des 
bases plus théoriques, en l’occurence le problème du parcourt d’un arbre. 


Soit un repas composé d’une entrée, d’un plat, et d’un dessert. Le plat 
lui-même comprend du poulet et des frites. Il y a deux morceaux de poulet, 
la cuisse et l’aile. 


Il est naturel de représenter le repas comme suit : 
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"e pr ' net ‘2 co lire léca 2qu imë us le 
constituants du repas dans l’ordre où ils vont être mangés c’est-à-dire 
ENTREE, CUISSE, AILE, FRITES, DESSERT. 


Il faut parcourir l'arbre d’une façon cohérente en ne sélectionnant que 
les feuilles. 


Tel qu’il est figuré ci-dessus, l’arbre est peu pratique d'emploi, car il 
manque une relation d’ordre entre les nœuds d’un même niveau. 


Il est beaucoup plus seyant d’adopter la représentation suivante : 


CUISSE AÏILE 


Il est nécessaire en outre de savoir par où commencer, c’est-a-dire de 
connaitre la tête de l’arbre. 


Pour le rendre encore plus exploitable par un mécanisme informatique, 
voici une représentation un peu plus élaborée : 


ENTREE PLAT 


— 
eo 


TR 


Où eunvienn que l’acces à l’une des cases tournit les trois informations 
suivantes : 


— le contenu de la case, 
— l'adresse de la case ”’fille” (en-dessous), 
— l'adresse de la case ” sœur” (à droite). 


Ces deux adresses prenant conventionnellement la valeur 0 (vide) 
lorsque cette ”fille”’ ou cette sœur” n’existent pas. 


Le mécanisme de parcours est le suivant: 


EMPILER tête 
REPETER 
DEPILER adresse 
TANT QUE adresse Æ O FAIRE 
SI adresse (fille) = O ALORS 
MANGER contenu 
adresse — adresse (sœur) 
SINON 
EMPILER adresse (sœur) 
adresse — adresse (fille) 
FIN SI 
FIN TANT QUE 
JUSQU'A pile = VIDE 


Le sens du parcours est alors: 


she 


SL 


Les plats consommés étant ceux encadrés en gras. 


Que faut-il retenir de cet exemple : 


— Toute exploration de structure arborescente nécessite une pile 
auxiliaire car il faut, après avoir parcouru une branche donnée, pouvoir 
revenir à sa jonction avec l'arbre de façon à en pouvoir explorer une nou- 
velle. Ces jonctions sont utilisées dans l’ordre inverse de leur rencontre: cela 


correspond parfaitement à la structure de pile LIFO. 


_ Ji faut disposer de marqueurs de fin d’arborescence pour déclen- 
cher le dépilage de la jonction précédente. 


Vous avez certainement deviné qu’il existait un lien direct entre ce pro- 
blème et l’exécution du mot FORTH suivant. 


. REPAS ENTREE PLAT DESSERT :|Return] OK 


Avec : 
. PLAT POULET FRITE ; (Return) OK 
: POULET CUISSE AILE : Return] OK 


On peut distinguer trois fonctions différentes dans l’algorithme : 


__ Les tests : les définitions sont terminées (marquées) par le mot ; 
qui termine les niveaux horizontaux. 

Le test d’existence d’un niveau inférieur n’a pas lieu d’être car Îles 
feuilles sont composées d’assembleur, lequel rétablit de lui-même la logique 
de parcours de l’ensemble. 


.--tion … .4 pil. . MpPhiupe èSt Avoui 8e Pin iv mot de iucuue 
le dépilage est assuré par le mot ; . Ces deux mots font partie d’une 
classe un peu particulière de mots de haut niveau: ce sont les mots de défi- 
nition dont nous parlerons dans le chapitre suivant. 


— gestion des adresses: Cette fonction, extrêmement simple, est 
réalisée par un module assembleur de quelques lignes, qui est la seule partie 
de FORTH qui ne s'intègre pas dans la structure de dictionnaire. 


La grande particularité du langage FORTH est que le dictionnaire se 
suffit à lui-même puisque chaque mot contient la logique d’enchainement 
des exécutions. C’est un des principes de fonctionnement des langages dits 
tissés. 

Pour vous en convaincre, suivons pas à pas le déroulement du mot 
REPAS, juste après l'exécution d'ENTREE. 


Les registres dont l’interpréteur FORTH a besoin en mode exécution 
sont : 


RP: pointeur de pile de retour. 


[IP : pointeur d'interprétation. Au cours de l’exécution d’une définition, il pointe en 
permanence sur la cellule mémoire contenant le CFA du prochain mot à 
exécuter. 


Comment se déroule l’exécution de PLAT ? 


IP pointe sur le CFA de plat. Avant d’exécuter ce mot, on incrémente 
IP de 2 pour le faire pointer sur la cellule contenant le CFA de DESSERT. 


En effet, c’est le mot qu’il nous faudra exécuter lorsque nous aurons 
fini notre plat. 


Pour consommer notre plat, il nous faut dérouler le code pointé par le 
CFA de plat. 


Le premier mot rencontré va sauvegarder IP dans la pile de RETURN, 
et met dans IP le PFA de PLAT. IP pointe donc maintenant sur une cellule 
contenant le CFA de POULET. 
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POU _ | ° Étsition su + saet-ctsudlant its Eos Dlhouuellé vus 
EE place la valeur courante de IP par le sommet de la pile de Return, qu’elle 
É dépile. 
PFA ENTREE L | , | | 
F ne Ë IP pointe donc maintenant sur le CFA de FRITES, c’est bien la suite 


de notre menu. 


De même, l’exécution du ; de PLAT remplacera IP par le contenu du 
sommet de la pile, qui n’est autre que le CFA de DESSERT. 


æ 
3 F7 
> 
4 
Mn 
2 
— 
m1 
n 
== 
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| V.1.5. Processus d'initialisation 
Return Stack ; 


Il y a trois types d’initialisation : Les piles de données et de return, 


R VARIABLES. 
Comme nous l’avons fait avant l’exécution de PLAT, nous allons EAN LPEERS RES CEE EEÈRI $ 


incrémenter IP afin qu’il pointe sur FRITES à notre retour de POULET. F Trois mots réalisent des initialisations : on peut résumer leurs actions 
Ë respectives dans le tableau suivant: 


| DATA & RETURN STACK IOBUFFERS USER VARIABLES 


Le premier mot rencontré dans la consommation POULET sauve IP 
sur la Return Stack et le remplace par le PFA de POULET, cellule conte- 
nant le CFA de CUISSE. 


On a alors les chainages suivants: 


POULET 


CUISSE | Les piles: 


. L'initialisation des piles se fait en mettant la valeur des USER 
vs [ VARIABLES SO et RO dans les pointeurs de pile SP et RP. 


Les mots qui réalisent ces fonctions sont SP! et RP!. 


On a donc de façon très simple : 


: ABORT SPI RPI QUIT ;|Return|OK 


RMOUE 1 Il faut noter que l’action de ABORT dépend du contenu des USER 
! VARIABLES RO et SO au moment où il est exécuté. 

Projetons nous en avant dans le temps, et considérons que nous en 
avons fini avec la CUISSE et l’AILE. Nous allons donc exécuter le ; de 
POULET, placé dans dictionnaire en fin de définition, lors de la compila- 
tion de POULET. 


QUIT permet d'entrer dans FORTH. Voyez plus en détail le para- 
graphe suivant. 


Comme d’habitude, avant d’exécuter le mot ; , l’interpréteur incré- : Les IOBUFFERS : 
a a mente IP, ce qui pourrait paraître inquiétant puisque la définition s’arrête là. ; Le mot EMPTY-BUFFERS prend en charge toute l’initialisation des 
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(eEe: 


USTT VAF''SLES : poi . Sul buf 
: WARM EMPTY-BUFFERS ABORT :{Return]| Ok 


Les USER VARIABLES : 


Plutôt que de les initialiser séparément, il est plus simple de garder une 
copie des valeurs initiales dans une partie de la mémoire, pour en faire une 
recopie complète sur la zone de travail. 


La définition de COLD sera donc: 
: COLD 


Adresse début zone 
Adresse fin zone 
Nb octets 

CMOVE 

WARM 


:[Retum]oKk 


V.1.6. Le moniteur FORTH 


Dans la présentation que nous venons de vous faire du déroulement de 
FORTH, il manque un dernier élément qui réalise la jonction entre vous et 
l'interpréteur. 


C'est la fonction QUIT. 


Comme sur tout système, vous êtes en permanence dans une boucle en 
attente de commandes. 


On peut décomposer les fonctions de QUIT de la façon suivante : 


— Initialisation de la RETURN STACK ( RP!). 

— Attente d’un déclenchement d’un traitement (touche ). 
— [nterprétation. 

— Affichage de OK 


Le mot QUIT peut bien sûr être inclus dans une définition : il vous 
replace dans l’état initial. C’est pourquoi le premier mot de QUIT réalise 
l'initialisation de la Return Stack. | 


L'enchainement général de FORTH se résume donc comme suit: 


Initialisation 
COLD, WARM, ABORT 

Boucle infinie 

QUIT 
Remise à zéro RETURN STACK 
—P RP! 

ER 

QUERY 


Interpréteur 


STATE = O STATE = 1 
Exécution Compilation 


Affichage 
"OK" CR 


V.2. IMPLANTATION 
SUR DIFFÉRENTES MACHINES 


FORTH a besoin de trois pointeurs pour fonctionner : 


RP : pointeur de pile de retour 
SP : pointeur de pile de données 
IP : pointeur d'interprétation 


Généralement, les micro-processeurs savent gérer automatiquement 
une pile pointée par un registre spécialisé du CPU, accessible à l’utilisateur. 


Cette pile est utilisée par la CPU pour sauvegarder les valeurs du 
compteur ordinal lors des appels de sous-programmes. On dispose égale- 
ment des instructions d’accès type PUSH, et POP qui réalisent l’accès 
mémoire et la mise à jour du pointeur de pile en une instruction élémentaire. 


On utilise souvent les facilités de cette gestion automatique pour 
implanter la pile de données. 


Si vous ne disposez pas d’une seconde pile automatique, vous devrez 
assurer une gestion manuelle de la pile des return. 


Deux cas peuvent se présenter : soit vous disposez de suffisamment de 
registres libres capables de contenir des adresses, auquel cas vous en dédiez 
un à la gestion de la pile des return. Si tel n’est pas le cas, vous gardez ce 
pointeur en mémoire à une adresse fixe. 

JPA 


AOT 


ur L ,  prol  :est aire. __:: [ui …..Luer LA , gistre à «dres- 
sage dans la CPU), soit l'installer en mémoire. 


Si le nombre des registres disponibles dans la CPU est limité (Z 80 par 
exemple), vous devrez faire, pour l’implantation des trois pointeurs, un com- 
promis entre la mémoire et les registres internes. 


Il faut bien voir que ce choix dépendra essentiellement des facilités de 
la machine. 


Pour vous en convaincre, voici deux exemples réels: 


Le 8080, microprocesseur 8 bits bien connu, dispose des registres sui- 
vants: A,F,B,C,D,E,H,L, PC, SP. 
. SP est le pointeur de pile géré automatiquement par la machine lors des instructions de 
type PUSH, POP, CALL. 
. PC est le compteur ordinal. 


. (B,C), (DE), (H.L), trois paires de registres accessibles soit individuellement, soit par 
deux pour manipuler les adresses. 


. À lPaccumulateur et F le registre d’état de l’accumulateur. 


Une des particularités de ce micro-processeur est que seul HL peut 
adresser la mémoire, on note d’ailleurs conventionnellement M — (HL). 


On prendra naturellement SP pour gérer la pile de données. 


Il reste trois registres machine (BC, DE, HL) pour les deux registres 
FORTH RP et IP. 


La programmation en assembleur des mots FORTH sera absolument 
inextricable si deux doubles registres sur trois doivent être conservés intacts. 


La sagesse consiste donc à attribuer BC à IP par exemple et à gaïder 
RP en mémoire. 


Le choix de RP et IP est indifférent car leurs fonctions sont étroite- 
ment liées et leurs sollicitations égales. 


Sur d’autres machines, l’architecture interne fait que les registres 
internes ne sont pas privilégiés par rapport à la mémoire, grâce à des modes 
d’adressage très évolués (LSI11, HP3000....). 


Il n’y a aucune difficulté à mettre tous les pointeurs en mémoire, leur 
gestion restant très simple. Les paramètres à prendre en compte pour la 
répartition sont alors le temps d’exécution, la souplesse de programmation 
et le respect des contraintes du système d'exploitation. 


Fe ucuxXiêluc tiape cunsiste a aimensionner iles différents blocs qui 
composent FORTH en mémoire. 


Les IOBUFFERS: leur taille est déterminante du nombre de pages rési- 
dentes simultanément en mémoire. 


La RETURN STACK : Bien évidemment, sa taille limite le nombre d’ imbri- 
cations maximum admissible dans une définition. 


TERMINAL INPUT BUFFER: Il'est souhaitable de le faire coiiees avec 
la longueur d’une ligne sur votre terminal. 


DATA STACK : Elle se partage, avec le dictionnaire, tout le reste de la 
mémoire. 


Ces paramètres étant définis, il vous reste à écrire en assembleur le 
source, composé lui-même de 10 % de code exécutable, le reste n’étant que 
des références à des étiquettes déjà définies. 


En d’autres termes, l’adaptation du FORTH de base d’une machine 
sur une autre ne nécessite que la traduction de ces 10 % de code purement 
exécutable. 


ug3 


104 


CFA 
EXECUTE. 
COLD 


WARM 
ABORT 
SP! 


SP 
RP! 


RP@ 


QUIT 


= Br 
SUM 


Syntaxe 


* Mot (—--—Pfa) 


PFA ( Cfa ——— Pfa ) 

LFA ( Cfa-—-—— Lfa ) 

NFA ( Cfa ——— Nfa ) 
CFA ( Pfa——— Cfa ) 

EXECUTE (Cfa ——— ) 
COLD 


WARM 
ABORT 
SP! 


SP@ 
RP! 


RP@ 


QUIT 


UC "IT" 


Définition 


Place sur la pile le Pfa du mot qui suit la 
commande dans l’input stream. 


Calcule le Pfa à partir du Cfa. 
Calcule le Lfa à partir du Cfa. 
Calcule le Nfa à partir du Cfa. 
Calcule le Cfa à partir du Pfa. 

Exécute le mot dont le Cfa est sur la pile. 


Initialisation des piles, des IObuffers, et des 
User Variables. 


Initialisation des piles et des IObuffers. 
Initialisation des piles. 


Met dans le pointeur de pile la valeur de la 
User Variable SO. | 


Charge sur la pile la valeur du pointeur de pile 


Met dans le pointeur de la pile de retour la 
valeur de la User Variable RO. 


Charge sur la pile la valeur du pointeur de la 
pile de retour. 


Initialise la pile de retour, arrête la compilation 


ou l’exécution, et rend la main à l'utilisateur. 


VI 


LES MOTS 
DE HAUT NIVEAU 


VI.1. LES MOTS AYANT TRAIT 


A LA COMPILATION 


VI1.1.1. Concept de mot immédiat et non-immédiat 


Dans le chapitre précédent, nous avons évoqué la possibilité pour cer- 
tains mots d’avoir un comportement différent selon que l’interpréteur est en 
mode compilation ou en mode exécution. 


L'intérêt de cette possibilité est de pouvoir exercer une action pendant 
la construction d’une définition. 


Pour bien vous fixer les idées, voyons d’abord la catégorie de mots 
dont l’action ne se situe qu’au moment d’une compilation : il s’agit des mots 
immédiats. 


La génération de tels mots est très simple : le mot IMMEDIATE rend 
immédiat le dernier mot entré dans le dictionnaire. 

Prenons tout de suite un exemple: 

: COUCOU .” COUCOU‘ ; 

IMMEDIATE OK 

: TEST COUCOU .” COCORICO” ; [Return] COUCOU OK 

TEST|Return|COCORICO OK 

COUCOU | Return] COUCOU OK _ 


Return|OK 
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diat, s'il est présent par la suite dans une définition, il sera exécute à la com- 
pilation sans étre pris en compte dans cette definition. 


Par ailleurs, la propriété pour un mot d’être immédiat n'’affecte en 
aucune manière son comportement lorsqu'il est directement exécuté. 


L'intérêt de pouvoir agir au moment de la compilation ne se limite bien 
sur pas à l'affichage de niaiseries sur votre terminal. 


Essayons d'imaginer comment sont implantées les structures de con- 
trôle de FORTH. Vous disposez au départ des mots FORTH BRANCH 
et OBR ANCH qui sont des GOTO extrêmement rudimentaires : ils exécutent 
un adressage relatif par rapport à leur position dans la définition. 


: 4 —4 ; IMMEDIATE| Return | OK 


: PARTOUT .” PARTOUT” CR : [Return] OK 


: ZOU PARTOUT BRANCH —4 : [Return] OK 


OBRANCH quant à lui fera un branchement relatif à condition que la 
valeur présente au sommet de la pile soit nulle. 


C'est intentionnellement que nous ne détaillerons pas plus ce type de 
mots qui sont à proscrire dans vos définitions. 


Prenons le cas très simple de BEGIN———AGAIN. A l'exécution, il 
suffit en fait que AGAIN exécute un BRANCH à ” étiquette” BEGIN. 
On comprend bien que BEGIN n’a rien à exécuter, il sert au moment de la 
compilation de point de repère pour la compilation de AGAIN. Son rôle est 
bien immédiat, il prépare le travail pour la compilation de AGAIN, mais ne 
figurera plus dans la définition compilée. 


Comme toujours, le passage de parametre se faisant par l’intermédiaire 
de la pile, BEGIN va empiler l’adresse de la première cellule libre dans le 
dictionnaire. 


: BEGIN HERE ; IMMEDIATE|Return| OK 
AGAIN, quant à lui, va ranger le CFA de BRANCH dans la première 


cellule libre puis l’adresse relative du branchement, à savoir la différence 
entre HERE et l'adresse placée au sommet de la pile par BEGIN. 


AGAIN est donc défini de la façon suivante: 


ON AINIC 


7 ILET  ICH  icel \Àde . NCH ..… suite 


du dictionnaire) 


HERE — (place l'adresse relative du branchement) 


IMMEDIATE OK 


Observons la définition d’un mot utilisant cette structure de contrôle : 


: BANG tête de 
chaîne 
BEGIN 
VROOM PFA | CFA de ZAP 
AGAIN 


CFA de VROOM 
CFA de BRANCH 


Comment fait l’interpréteur pour reconnaître un mot immédiat ? C’est 
le PRECEDENCE BIT qui indique le caractère immédiat d’un mot. La 


fonction du mot IMMEDIATE est de positionner le precedence bit du 
dernier mot créé dans le dictionnaire. 


 Rewumjok 


Étant donné que, lorsque l’interpréteur est en mode compilation et qu'il 
rencontre un mot immédiat il l’exécute, il est bon de se demander ce qui fait 
que linterpréteur se retrouve dans ce même mode pour le reste de la défini- 
tion. En fait l’interpréteur reste toujours en mode compilation lorsqu’il com- 
pile une définition, même pendant l’exécution d’un mot immédiat rencontré. 


Lorsque l’interpréteur détecte un mot immédiat dans une définition, il 


effectue un EXECUTE de ce mot, ce qui ne nécessite aucun changement de 
mode. | | 


VI.1.2. Le mot [COMPILE] 


APT 


Supposez que vous avez défini un mot et que vous l’avez rendu immé- 
diat. Il est possible que vous ayez ensuite besoin de vous en servir dans une 


ADS 


dé-""on s-- ;afo —- norn ‘ c’est * ‘ren ‘aimé © Por  oud 
ce problème, il vous suffira de précéder ce mot dans la définition par le mot 
[COMPILE]. Ce mot [COMPILE] indique à l’interpréteur qu’il ne doit pas 
tenir compte du precedence bit du mot qui suit. 


Exemple I: 


Dans certains FORTH, le mot ” (tick) est immédiat. Si vous avez 
besoin de travailler sur le PFA d’un mot donné à l’exécution d’une défini- 
tion, il est nécessaire de précéder * par [COMPILE]. 


Supposons que l’on veuille obtenir le CFA d’un mot en utilisant la syn- 
taxe: CFA mot. 


Si l’on utilise * sous sa forme immédiate sans [COMPILE|, c’est-a- 
dire : 
: CFA ® 2 —;| Return|OK 


Le fait de taper CFA mot aurait pour effet de mettre le CFA de 2— sur 
la pile et d'exécuter le mot, ce qui n’est pas le but recherche. 


La solution est d’inhiber l’action de * au moment de la compilation en 
la déportant au moment de l’exécution, d’où la définition de CFA: 


. CFA [COMPILE] ‘ 2 — ; base CFA ) 


Return] OK 


Exemple 2: 


Une autre application est de se créer un pseudo-vocabulaire des mots 
immédiats, c’est-à-dire de pouvoir définir des mots immédiats à partir 
d’autres mots immédiats. | 

. BOUM .” BOUM” ; IMMEDIATE [Return] OK 

: BADABOUM .” BADA‘" [COMPILE] BOUM ; IMMEDIATE 


Return] OK 


VI.1.3. La structure | -————-| 


Nous allons maintenant nous intéresser à la structure qui va nous per- 
0 ? LC] Li L] La L] 8 La 1 
mettre de rendre immédiat un ou une série de mots à l’intérieur d'une défini 


tion de manière temporaire. 


Le mot | signale le début des mots à considérer comme immédiats, et | 
le retour à la compilation normale. 


L les à plé___ entre , ct | puucnt À sume Laiuctêre nuu- 
immédiat pour toute utilisation future. 


Exemple : 


: VLAN .” VLAN” :[Return|OK 
: PAF [ VLAN ] VLAN :[Return] VLAN OK 


PAF VLAN OK 


: PIF VLAN : [Return] OK 


De même que [COMPILE] rend non-immédiat le mot immédiat qui le 
suit dans une définition, sans pour autant en affecter la nature, les mots [ et | 
n’ont pas rendu VLAN immédiat. C’est à l’utilisateur de déterminer sous 
quelle forme un mot sera utilisé le plus souvent avant de rendre un mot 
immédiat, de façon à ne pas alourdir inutilement les définitions futures. 


VI.1.4. COMPILE-TIME et RUN-TIME 


Nous avons vu qu’il existe deux modes pour l’interpréteur : le mode 
compilation et le mode exécution. 


Nous savons définir deux types exclusifs de mots: les mots non- 
immédiats, dont l’action se déroule lorsque l’interpréteur est en mode exécu- 
tion et les mots immédiats, qui sont exécutés lorsque l’interpréteur est en 
mode compilation. 


Les structures de contrôle ne rentrent cependant pas dans ce cadre car 
la plupart des mots qui les composent nécessitent deux actions différentes, 
l’une à la compilation et l’autre à l’exécution. C’est le cas de AGAIN: 


— Compilation: il calcule et mémorise l’adresse relative du BEGIN 
dont l’adresse absolue se trouve au sommet de la pile. 


— Exécution: il effectue le branchement à l’adresse du BEGIN. 


Essayons de dégager une méthodologie de résolution de ce type de 
problème. 


Il est évident que le mot doit agir à la compilation; il doit donc être 
immédiat. Ainsi, tous les mots qui le composent seront exécutés lors de la 
compilation. À priori il n’en restera aucune trace dans le mot en cours de 
définition, sauf si l'exécution du mot immédiat force dans la définition les 
mots remplissant la deuxième fonction du mot immédiat. 


Il existe trois mots (déjà définis) qui permettent de forcer des objets | 
dans le dictionnaire: COMPILE, C, et , dd 


A A0 


ON _Epl.._.2CF.. 4 mc. qui le su « Pau vost COluuuiue dans 
HEÈRE, c’est-à-dire à la fin du dictionnaire. 


C, et , placent respectivement le sommet de la pile au même endroit 
(HERE) sur respectivement un ou deux octets. 


Nous vous rappelons la définition de AGAIN qui représente un 
exemple simple : 


Sachant que BEGIN a placé son adresse absolue sur la pile, 


: AGAIN 
COMPILE 


HERE — 
: IMMEDIATE|{Return| OK 


BRANCH (force le CFA de BRANCHI) 


(calcul de l'adresse relative) 


Exemple 1 : 
: SPLATCH .” SPLATCH” ;|Return| OK 


: PLOF .” PLOF” : [Return] OK 

: BRUIT COMPILE PLOF SPLATCH ; IMMEDIATE [Return] OK 
: SON BRUIT :; [Return] SPLATCH OK 

SON Return! PLOF OK 


Exemple 2: 


Essayons de définir les mots FORTH de la structure de contrôle 
DO—-—LOOP. 


Analysons les fonctions des deux mots de la structure. 


DO : — Compilation: il empile son adresse dans la définition. 
— Execution: il transfère les indices de la boucle sur 
la Return Stack. 
LOOP: — Compilation: il calcule l'adresse relative de DO. 
— Exécution: il incrémente l’indice de boucle, effec- 


tue le test et éventuellement le saut. 


: DO 
COMPILE SWAP 
(transfert des indices de 


COMPILE >R boucle vers la Return Stack 
COMPILE >R 
HERE (empile l'adresse absolue) 


: IMMEDIATEÏReturn|OK 


: LOOP 
COMPILER>  (incrémente l'indice courant de boucle) 
COMPILE 1 + 
COMPILE R> (empile l'adresse de fin) 


COMPILE 2DUP 
(test de fin de boucle 


COMPILE >R et sauvegarde des 

deux indices de boucle) 
COMPILE >R 
COMPILE < 
COMPILE O-— 
COMPILE (branchement conditionnel) 
OBRANCH 
HERE —, (force l'adresse du branchement) 
COMPILE R> 

(nettoie la Return Stack) 
COMPILER> 


COMPILE 2DROP 
: IMMEDIATE Return|OK 


À titre d'exercice, définissez +LOOP et la structure 
BEGIN-—-——-WHILE-——-REPEAT. 


Nous espérons que vous êtes conscients de la puissance des outils que 


FORTH vous offre avec la possibilité de créer des structures de contrôle. 
Si vous connaissez un autre langage évolué, vous en apprécierez d'autant 
plus FORTH. 
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V,... LES .….OTS JAN. . RAI. 
A LA DÉFINITION D'AUTRES MOTS 


VI.2.1. Le bit de validation de définition (SMUDGE BIT) 


A plusieurs reprises déjà, nous avons évoqué deux bits spécialisés dans 
le premier octet des définitions contenues dans le dictionnaire. 


76543210 


En Longueur 


smudge 
precedence 


Maintenant que vous avez une idée précise du fonctionnement interne 
de l'interpréteur, nous allons revenir de manière plus approfondie sur la 
fonction de ces différents bits. 


— Bit 7: Il vaut toujours 1. Pourquoi? 


Vous avez remarqué que vous ne pouvez accéder à une définition dans 
le dictionnaire que par son LFA. A linstar du LFA, le NFA n'est pas 
immédiatement calculable, puisque les noms de définition sont de longueur 
variable. 


Grâce à ce bit systématiquement forcé à 1 en tête de définition, nous 
allons pouvoir le retrouver de façon très simple: il suffit de rechercher vers 
les adresses décroissantes le premier octet dont le MSB est à 1. 


: NFA 4 — CR == ) 
BEGIN 
DUP @ (CFA (CFA) ————— ) 
80 AND O= ( CFAflag———— ) 
WHILE | 
L- (| CFA—1————— ) 
REPEAT 


Return]OK 
AAT 


Te: que ce mor à éie ucfini, vous pouvez écrire : 


HEX ‘ NFA 2 — NFA/Return|093A OK 


093A est ici l’adresse de la tête de chaîne du mot NFA. 


Si vous souhaitez une utilisation moins lourde, il vous sera facile de 
définir : 


: NOM HEX 
[COMPILE] ‘ 2 — 
NFA DECIMAL. 


: [MMEDIATE Return OK 


et vous aurez alors: 


NOM NFA/Return 093A OK 


— Bit 6: C’est le précédence bit. 


C’est lui qui spécifie à l’interpréteur le caractère immédiat du mot 
considéré. 

Rappelons que IMMEDIATE force à 1 le precedence bit du dernier 
mot créé. 


Il est facile de construire des mots capables de modifier le precedence 
bit de n’importe quel mot du dictionnaire. 


RESETPREC (CFA) 
[COMPILE] NOM ( NFA——— ) 
DUP Ce ( NFA(NFA)——— ) 
BF AND 
SWAP ( (NFA) NFA——— ) 
C! 


: [Return)ok 
143 
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."HÉTRES 
[COMPILE } NOM 
DUP Ca 
40 OR 
SW AP 
C! 


IReturnlOK 


{ LVrA ——— } 


Il convient de noter la différence essentielle qui existe entre le mot 
[COMPILE] et RESETPREC : le premier n’affecte pas le precedence bit, 
alors que le second a été écrit pour le mettre à 0. 


— Bit 5: C’est le smudge bit. 
Ce bit signale à l’interpréteur la validité de la définition. 


Vous avez sans doute déjà été confronté au problème de définition 
non-valide. 


C’est le cas lorsque l’interpréteur rejette la compilation d’une définition 
avéc un message d'erreur. 


. TEST BEGIN :|Return] MSG#0 OK 


Le mot est bien présent dans le dictionnaire comme le prouve VLIST, 
alors que toute tentative d'exécution se solde par un message d’erreur (mot 
inexistant). 


Du fait de l’analyse séquentielle de la définition, : a bien créé une tête 
de chaine correspondant à ce mot, que VLIST a su reconnaître. Par contre, 
l'interpréteur a détecté une anomalie de compilation et n’a donc pas posi- 
tionné le smudge bit, ce qui empêche toute utilisation de cet embryon de 
définition. 


Lorsque la définition est correcte, c’est ; qui est charge de positionner 
ce bit. Si votre définition ne se termine pas par ; , lorsque vous utilisez 
CODE par exemple, il ne faudra pas oublier de le positionner immédiate- 
ment à l’aide de SMUDGE. 


— Bits 4, 3, 2, 1, 0: Ces cinq bits contiennent la longueur du nom de la 
définition. 


V1.2.2. Les mots ae dérimiion connus 


On appelle mot de définition tout mot capable de créer une tête de 
chaine. 


Jusqu'à maintenant, nous en avons rencontré quatre: 
: , VARIABLE , CONSTANT et USER. 


Tous les quatre créent une tête de chaîne de même structure, à savoir: 
— Un premier octet tel que détaillé au paragraphe précédent. 


— Une chaïne de caractères (codes ASCII) contenant le nom du mot, 
dont le MSB du dernier octet est force à 1. 


— Un pointeur de chaïînage vers le mot précédent du vocabulaire 
courant. 


Pour aborder en douceur l’objet de ce chapitre, penchons nous 
ensemble sur le comportement du mot CONSTANT. 


Vous savez comment définir une constante : 
16 CONSTANT SEIZE|Return|OK 


Puis relire sa valeur : 


SEIZE .[Return|16 OK 


C’est manifestement l'exécution du mot SEIZE qui retourne la valeur 
de la constante sur la pile, sans qu'aucune compilation n’ait eu lieu par l’in- 
termédiaire de : par exemple. 


Si vous avez la curiosité d'examiner le contenu de la définition de 
SEIZE, vous n’y retrouverez que la valeur 16 précédée d’une adresse située 
au CFA. | 


ojo[tjofr 


code ASCII de S 
code ASCII de E 
code ASCII de | 
code ASCII de Z 
code ASCII de E 


adresse 


LFA 
CFA 
PFA 


adresse 


115 


AA & 


sa Unis: c de: le: Ssents sr que à Cf. 2:52. fétel.. ous 
savez que lorsque vous tapez: 


SEIZE [Return] OK 


l’interpréteur va exécuter le code pointé par le CFA. C’est donc cette exécu- 
tion qui va placer la valeur de la constante sur la pile. 


Ce code pointé par le CFA des constantes n’est autre que la deuxième 
partie de la définition du mot CONSTANT, la première étant celle qui 
génère la tête de chaîne. 


O code ASCII de S 


O code ASCIIde T 


1 0 0101 


O code ASCII de E 


adresse 


O code ASCII de A 


O code ASCIIde N 


1 code ASCII deT 


COMPILE TIME 
CODE 
RUN TIME 
CODE 


Les mots de définition que nous allons vous présenter comportent deux 
parties : 


LFA 


génère la tête 
de chaîne 


met la valeur 
sur la pile 


— La première, exécutée lorsqu'on les utilise pour créer un mot, crée 
une tête de chaine. | 


— La seconde est appelée lorsqu'on exécute les mots ainsi créés. Elle 
effectue la totalité du traitement donné. 


L'intérêt d’un tel outil est par exemple le pouvoir structurer des 
données : le traitement choisi dépendra du type des données. 


- Our .. .Onst..…s, le .. u.smen. svt 14 savar de sa CONStannx Sur ia 
pile. Pour les variables, il met l'adresse de la valeur sur la pile (PFA). 


Rappelons que pour les constantes comme pour les variables, leur 
valeur est au PFA de la définition. 


On connaît l’adresse de la valeur des variables : on pourra donc facile- 
ment les modifier grâce aux mot @ et ! . Pour les constantes, nous n’avons 
accès qu’à la valeur, c’est ce qui rend leur modification plus délicate. 


Les USER sont assez semblables aux variables par le fait qu’elles 
retournent l'adresse de leur valeur sur la pile, mais leur implantation 
mémoire est différente. En effet, les valeurs sont localisées dans une table à 
un emplacement fixe dans la mémoire. L'adresse de la valeur dans la table 
se trouve au PFA de Ia définition de la USER. 


L'intérêt de cette table fixe réside dans l’implantation du multitasking : 
les USER VARIABLES sont en effet les seuls mots du FORTH de base 
susceptibles d’êtres différents d’un utilisateur à l’autre. 


VI1.2.3. Outils de définition des mots de définition 


Il s’agit de <BUILDS et DOES>, toujours employés par paire. La 
structure générale de la définition classique d’un mot de définition est sur le 
modéle suivant : 


: MOTDEDEFINITION 
<BUILDS 
Traitement 1 
DOES> 
Traitement 2 


: [Return] Ok 


C’est <BUILDS qui créera effectivement la tête de chaîne. A l’exécu- 
tion du mot de définition, la tête de chaîne créée portera Île nom du mot qui 
le suit. 


Exemple : 


Supposons que nous avons défini le mot de définition DEFINE. Après 
avoir utilisé la syntaxe suivante: 


DEFINE OBJET/Return]lOK AAT 


Un trouvera dans le dirtionns-* ‘ine -" elle ‘ ”utio  rtan: 


Liviu OBji 1. 


L’exécution de ” Traitement 1” a lieu lors de l’exécution du mot de 
définition, après la création de la tête de chaïne. 


Nous comprendrons mieux sa fonction dans le paragraphe suivant. 


La finalité des mots de définition est d’associer un traitement donné à 
l'exécution des mots définis par leur intermédiaire. 


Le traitement en question est représenté ici par ” Traitement 2”. I] 
n’est donc pas à exécuter lors de l’exécution du mot de définition (exemple : 
DEFINE OBJET). Il faut bien comprendre que ce traitement est résident 
dans la définition du mot de définition et non pas dans celle du mot défini, 
où il ne figure que par un pointeur, placé là lors de l’exécution de DOES>. 


La fonction de DOES> est de dérouter l’interpréteur sur 
” Traitement 2” lors de l’exécution du mot défini après avoir placé sur la 
pile le PFA du dit mot. 


Ces renseignements suffisent pour la création et l’utilisation de mots de 
définition. Si vous êtes curieux de connaître le fond du problème, nous 
allons maintenant aborder le fonctionnement interne de DOES>. 


Exécutons pas à pas le mot défini OBJET. Nous savons que l’interpré- 
teur va considérer le contenu de la définition d'OBJET comme une suite de 
CFA de mots à exécuter. Dans notre cas, ce mode de fonctionnement n’est 
pas adapté si l’on pense par exemple aux variables qui contiennent une 
valeur numérique qui n’est pas un CFA. Le mot dont le CFA est situé au 
CFA d'OBJET devra donc dérouter l’exécution vers ” Traitement 2” et non 
vers la suite de la définition d'OBJET, en mettant au passage le PFA +2 
d'OBJET sur la pile afin que ”’ Traitement 2” sache d’où vient l’appel. 


Le début de la définition d'OBJET comprend donc deux adresses : le 
CFA du mot ”’déroutant” et l’adresse du déroutement, c’est-à-dire le début 
de ” Traitement 2”. 


<BUILDS réserve deux emplacements après la tête de chaine. C’est 
l'exécution de DOES> qui placera les deux adresses ” pointeur ” dans ces 
deux cases mémoire. | | 


Tout est donc maintenant assemblé selon le schéma suivant: 


nn 


DEFINE OBJET Mot déroutant 
<BUILDS 
Traitement 1 
DOES> 


Traitement 2 


En fait, les choses sont encore plus subtilement organisées. Le mot 


“ déroutant ” est inclus dans la définition de DOES> et le schéma correct est 


le suivant : 


DEFINE OBJET 


(crée la tête de chaîne) <BUILDS 


DOES> | 


v 

_ 
> nn 
+ > 
N 


DOES> 


(@) 
n 
> 


Préparation du 
déroutement et 
arrêt exécution 


Mise du PFA sur 


la pile et 
déroutement 


Nous vous recommandons de vous référer au source de votre FORTH 
pour plus ample information. 


A titre d’application, voyons comment nous pourrions écrire les mots 
de définition CONSTANT et VARIABLE en FORTH. 


Il est clair que la clé est de trouver Traitement 1” et ” Traitement 2”. 
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CONSTANT 
Traitement 1 


Placer la valeur numérique 
présente sur la pile au premier 
emplacement libre dans le 
dictionnaire (PFA+2) 


C'est-à-dire: 
: CONSTANT 
<BUILDS 
DOES> 
@ 
VARIABLE 


Traitement 1 


Même chose que pour 


CONSTANT. 
C'est-à-dire:, 
: VARIABLE 
<BUILDS 
DOES> 
; [Return] OK 


Traitement 2 


PFA +2 étant sur la pile, 
chercher son contenu et le placer 
sur la pile. 


C'est-à-dire: @ 


Traitement 2 


L'adresse du début de la valeur 
est directement sur la pile, il n'y 
a donc aucun traitement supplémen- 
taire. 


Il esr pussible uans la uennition à un mot ae définition d’intercaler un 
traitement avant <BUILDS. Il ne sera bien sûr exécuté que lors de l’exécu- 
ion du mot de définition. 


Exemple : 
: DEFINE 
." JE DEFINIS” 
<BUILDS 
"Traitement 1” 
DOES> 
"Traitement 2” 


[Retumjok 


Par contre, il n’est pas possible d’imbriquer des structures <BUILDS 
et DOES>. En effet, DOES> invoque dans son exécution le mot LATEST 
qui retourne le CFA du dernier mot du vocabulaire courant, donc du mot en 
cours de définition. Nous aboutirions donc au problème suivant : 


DEFINE 
OBJET 


<BUILDS crée la 
1 tête de 
chaîne 


<BUILDS crée la 
2 tête de 


chaîne 


OBJET2 


DOES< met à 
jour les 2 
pointeurs 


—. 


RE ES 
DOES< met à ( 


jour les 2 
pointeurs 


WHITE 


LATEST 


pointe sur le 


dernier mot » 94 


‘et 


_. deux... DO. net.…..….ille p… .ar le . _.. grou,. € pc... 1irs. 


VI.2.4. Exemples d'utilisation : STRING, ARRAY 


L'outil indispensable pour créer des structures de données complexes 
est ALLOT qui réserve des emplacements mémoire à partir de la position 
courante du pointeur de dictionnaire (DP). Il prend sur la pile le nombre 
d'octets à réserver. 


: ALLOT DP« + DPI ;[Return|OK 
À noter que DP« n’est autre que le mot HÈRE. 


ALLOT n’est pas lié à priori à l’action de définition. 


STRINGS 


Nous nous proposons maintenant d’implanter en FORTH la structure 
chaine de caractères (STRING). 


Analyse : 


Cette structure présentera des caractéristiques classiques (cf Basic par 
exemple). 


__ La capacité maximum de la chaîne est donnée au départ. 


— On peut y accéder soit globalement, soit grâce a un système de 
sous-chaines. 


Pour cela, nous implanterons la valeur dans la définition, avec deux 
index donnant la taille maximum de la chaine et le nombre de caracteres 
déjà affectés. 


chaîne 


Utilisés 


CFA 


PFA 


PFA+2 


PFA+4 


PFA+6 


valeurs 


Notic ucfinitiuu doit vus permèure d uunser la syntaxe suivante: 
Pour la définition de la chaïne: 

Nb carac. STRING Nom de la chaîne 

Pour l'accès, l’exécution du nom de la chaîne retournera sur la pile: 


fee Adr.chaîne Dimension Utilisés) 


Implantation 
Le traitement associé à <BUILDS sera: 
— Prendre Dimension sur la pile, la ranger dans la définition. 
— JInitialiser à zéro le nombre de caractères utilisés. 


— Reserver le nombre de caractères de la dimension. 


Le traitement associé à DOES> consiste à calculer et empiler les 
valeurs demandées à partir de PFA+2 présent sur la pile. 


: STRING (dim————) 
<BUILDS 
DUP, (dim———) range la dimension 
0, (dim———) range le Nb de caractères 
utilisés 
ALLOT (———) réserve la dimension 
DOES> 


4 + DUP 4 — (Ad.chaîne Ad.dim.——-) 
DUP @ SWAP (Ad.chaîne dim. Ad.dim.———) 


2+@ (Ad.chaîne dim. utilisés ——) 


: [Retum/OKk 


Pour affecter globalement une valeur à cette chaïne, nous avons choisi 
une méthode assez générale : la chaîne devra être délimitée par des guille- 
mets afin d’autoriser les caractères blancs en début, milieu et fin de chaîne. 


Il est utile de disposer d’un mot qui recherche en mémoire un caractère 
donné avec une adresse de départ, et une adresse limite d’exploration. 


ALD 


Un ii place dans 1a pile le cuue ASC 11 du Cas aurêre Cuiui -hé, | su vSSE ANS (A fax. Ad ss flag , 
de début et le nombre de caractères à scruter. Il retourne apres exécution | OVER C ( Ad Max C1-—- ) 
l'adresse du caractère cherché en cas de succès et un flag de succés ou | ( prend le 1° caractère ) 
d'échec | | M ( Ad Max flag-— ) 

| ( lecompare à” ) 
. POS ( C Ad. Max——-—Ad Flag ) Li 
| DROP © O ( Ad O O0 ) 
.. O0 Max——— ) 
O SWAP ( C Ad ( ne commence pas par” }) 
0 DO . " MAUVAIS SEPARATEUR 
DROP (€ Ad } | ELSE 
OVER OVER @æ —O0= ( C Ad. flag——— } | OVER 34 ROT 
ROT1( Ad” Max Ad-— ) 
IF 
1 LEAVE (C Ad 1—— ) | SWAP POS (| Ad Ad' flag-—-) 
S | ( Cherche le second” }) 
ELSE 
1+ 0 ( C Ad.+1 O——— ) : IF ( Ad Ad'—--) 
| OVER — 1 — 1 (Ad long 1-——- ) 
THEN ; ( Succès }) 
LOOP | ELSE 
ROT DROP ( Ad. flag-—— ) | DROP O0 © (Ad © i—) 
: [Return OK | . " CHAINE TROP LONGUE" 
THEN 
À partir de POS, construisons un mot qui teste la validité d’une cons- | THEN 
tante alphanumérique entre guillemets, en prenant sur la pile une adresse de [Returnok 
début, la longueur maximum tolérée de la constante, et qui retourne sur la oi AN | 
pile cette même adresse, la longueur effective de la chaîne et un flag (succes- On eut nantetiont cle nent conuiie 0 
échec). 48 ( Ad Max Util-—- ) 
| | DROP ( Ad Max ———) 
TIB IN + ( Ad MAX Ad.début-—— } 
SWAP ( Ad Ad.début MAX-——-— ) 
?STRING ( Ad Addébut Long Flag—-—-— ) 
IF ( Ad Ad.début Long——— ) 
1 O D+ ROT 2DUP 2— ISWAPI( Mise à jour de Util } 
THEN 


CMOVE QUIT 


A Lt | : Return]OK ALS 


AT 


__. rois es du .isati … _e $= _. ,ustif jar il.  yse ‘n- 
dante suivante: 


__ Transférer une chaîne du Terminal Input Buffer dans la variable 
désignée, donc: 

— ftre capable de tester la validité du mot suivant comme constante 
alphanumérique: présence de séparateurs, longueur<dimension maximale 


et donc: _. 
__ Rechercher un caractère donné à partir d’une adresse mémoire 


avec une limite d'exploration. 


Exemple : 


50 STRING TEST [Return] OK 
TEST $— "CHAINE DE CARACTERES " [Return/OK 


À partir de maintenant, il est extrêmement simple de réaliser l’affi- 
chage d’une chaine à l’écran: 


(Ad Max Util———) 
SWAP DROP TYPE 


FeurJok 


De même, les fonctions classiques de traitement des chaînes s’implan- 
tent de façon suivante: 


: $DISP 


Passage minuscules-majuscules. 


. SUPC (Ad Max Util———) 

SWAP DROP (Ad Util———) 

O DO (Ad ———) 
DUP @ (Ad C ———) 
DUP 64 — O> (test: C est-il un) 
OVER 91 — O< (caractère alphanumérique ?) 
* | (Ad C flag ——) 
32 * + (Ad C+(flagx32) ———) 

OVER ! 1+ (Ad+1 ———) 
LOOP 


Feumiok 


Passage majuscule-minuscule. 


“ONE (Ad Max Util ———) 
SWAP. DROP 
0 DO 
DUP 
DUP 96 — O> 
OVER 123 — O 
; 
de 
OVER ! 14 
LOOP 
: [Return] OK 
ARRAYS 


Autre exemple d'application de <BUILDS et DOES> : les matrices à 
deux dimensions. 


Analyse : 


— À Îla création, les deux dimensions sont données. 
— On peut y accéder soit globalement, soit grâce à un système de 
sous-matrices. 
| Pour cela, on implantera le tableau dans la définition, en le faisant pré- 
céder par deux valeurs correspondant aux deux dimensions. 


TABLEAU 
DIM 1 


DIM 2 


Notre définition devra nous permettre d’utiliser les syntaxes suivantes : 


— Pour la création: 
DIM1 DIM2 MATDEF Nom du tableau 
— Pour l’acces, l'exécution de 


ind1 ind2 Nom du tableau 


12% ; [Return| OK 


retOuracid Sur a PIlE à uureSSE l’élé:.… dés. 


Implantation : 
Le traitement associé à <BUILDS sera: 


— prendre les deux dimensions sur la pile, les ranger dans la 


définition, 
—— réserver dim 


ultérieurement la matrice. 


« dim? cellules dans la définition, afin d’y ranger 


Le traitement associé à DOES> consiste à tester la validité des indices 
ind 1 et ind2 par rapport à diml et dim2, puis calculer l'adresse de l’élément 
demandé par une opération arithmétique du type : 


PFA+6 + (indi x Dimi) + ind2 


: MATDERF ( Dimi Dim2——— ) 
<BUILDS 
OVER 
OVER 
*  ALLOT 
DOES> ( Ind1 Ind2 PFA+2 ——— ) 
>R ( Ind1 Ind2 ——— } 
2 DUP { Ind1 Ind2 Ind1 Ind2 ——— } 
{ Ind1 Ind2 Ind1 Ind2 Dimi ——— } 
| 2+ ( Ind1 Ind2 Ind1 Ind2 Dim Dim2 ——— }) 
ROT — O> 
ROT 
ROT — O< ( Ind1 Iind2 Flag1 Flag2 ——— } 
* 
IF 
| ROT *x + 
R> 4 + ( Offset PFA+6 ——— ) 
+ ( Adresse —-—— ) 
ELSE 


R> DROP 2DROP 


MAUVAIS INDICES” 
THEN 


A de; ‘t 
en —— 
a ; . laqu men. …. Jette su 1C à ucux ditueri- 
vi ue ement comme une variable ordinaire, ce qui 
et écriture des éléments aussi aisée que dans d’autres cases 


Pour pousser plus | tati 
avant l'exploitation de cett 
e nouve 
données, on peut créer le mot simple suivant : DT CRIRReE 


: MATDISP 
[COMPILE] (PER 
6 + DUP >R ( CFA+8 —-—-— ) 
LR Et NC ( CFA+8 Dim ——-— ) 
R> 2 — @ ( CFA+8 Dim1 Dim2 ——— ) 
O0 DO 
SWAP OVER ( Dim Ad Dim1 ——— ) 
O0 DO 
DUP «&. 
2+ 
LOOP 
SWAP ( Ad' Dim —— ) 
LOOP 
2DROP 


: [Return] ok 


VI.3. EXÉCUTION PAR INDIRECTION 


Continuons dans le cadre de l’exemple précédent. 


_ ag nombre de fonctions élémentaires du calcul matriciel. on 
ve toujours le même algorithme de balayage des lignes et des 


] 1l I 


A29 


e A1: l’ét: la : 


AT FI 
PREPARE (PFA+6 dim1 dim2 ———) 
di D6 (PFA+6 diml ———) 
SWAP OVER (dim1i PFA+6 dimi ———) 
O DO (dim PFA+6 ———) 
DUP TRAITEMENT 2 + 
LOOP 
WAP (PFA+6 diml ——— ) 
LOOP Ce qui justifie de sauvegarder le pointeur d’interprétation dans la pile 
de données avant de pouvoir accéder à I et J. 
| lok Les opérations scalaires, tels que addition de la constante CONST à 
| [Return — tous les éléments, s’écrivent : 
GE : PLUS 


CONST OVER @ + SWAP ! 


EPARE 
” ; Ok 


[COMPILE] (FRA 

6 + DUP Z>R (PFAFO ===) L'idée de l’exécution par indirection est de pouvoir paramétrer un trai- 
| 4 — @ (PFA+6 dimi ———) tement dans un algorithme par l'intermédiaire d’une variable. 

R> 2 — ©@ (PFA+6 dimi dim2 ———) L'outil de base pour réaliser ce type de miracles est le mot EXECUTE 


qui exécute spontanément le mot dont le CFA est sur la pile. 


: [Return]Ok 


Ce mot a déjà été cité lors de la présentation du mécanisme interne de 


Le traitement pour la mise à une valeur constante s’écrira : al . —— 
La mise en œuvre d’une exécution par indirection suppose deux 
: INIT | phases: 
CONST SWAP ! | — Création et préparation d’une variable contenant le CFA du mot 
| OK Correspondant au traitement choisi. 
— Dans l'algorithme, remplacement du traitement par VAR-TRAIT 
De même la matrice identité se générera automatiquement en prenant EXECUTE. 
comme traitement : 
: [DENT 
R> 1 J ROT >R 
— SWAP ! 


1% Eux sé 


ASE 


TR£A TT CENT 


VAR-TRAIT 


ndirection puisqu'il est possible 
algorithme. 


Il s’agit bien d'une exécution par 1! 
C 9 
d'agir extérieurement sur la fonction de | 


O VARIABLE VAR-TRAIT 


: MAT FN 
PREPARE 


O0 DO 
SWAP OVER 


O DO 
DUP VAR-TRAÎÏT 


LOOP 

SWAP 
LOOP 
2DROP 


: [Return] OK 


Les fonctions : 


: T-DISP @ . :[Returm)OK 
. TINIT CONST SWAP ! ;[Return/OK 


| LPLUS CONST OVER @ + SWAP ! ;[Retum)OK 
Les traitements correspondants : | 
. MATDISP ‘ T-DISP VAR-TRAIT ! MATFN [Return] OK 
. MATINIT ‘ T-INIT VAR-TRAIT ! MATFN . [Return] OK 


. MATPLUS ‘ T-PLUS VAR-TRAIT ! MATEN [Return] OK 
ravailler à deux niveaux : 


EXECUTE 2+ 


En FORTH, il est toujours possible de t 
auquel cas le fonction- 


__ Soit dans la lignée des langages classiques, 
eur. 


terpréteur est transparent au programm 


nement de lin LL 
formant, en intégrant l'application dans la 


__ Soit à un niveau plus pe 
philosophie du langage. | 


Mot 


IMMEDIATE IMMEDIATE 


BRANCH 


OBRANCH 


COMPILE 


LM 


[COMPILE] 


<BUILDS 


DOES> 


ALLOT 


RÉ ÉD HA ___:EN\. 


Syntaxe Définition 

Rend le dernier mot créé dans le dictionnaire 
immédiat, c’est-à-dire que ce mot sera exécuté 
même lors de la compilation d’une définition 
où il apparait. 


BRANCH  ”adresse | Effectue un branchement à l’adresse relative 
relative ” (par rapport à la position du BRANCH). 
OBRANCH ‘adresse | Effectue un branchement conditionnel (flag 
relative” | nul sur la pile) à l'adresse relative (par rapport 


a la position du OBRANCH). 


À lPexécution du mot dont la définition 
contient COMPILE, le CFA de ” mot” sera 
chargé à la suite du dictionnaire. 


COMPILE mot” 


L’interpréteur passe en mode exécution. Ce 
mot est toujours utilisé en paire avec le mot |. 


[ ‘suite de mots” | 


L’interpréteur repasse en mode compilation. 
Ce mot est toujours utilisé après le mot |. 


[ suite de mots” | 


[COMPILE] mot” |Lors de la compilation, le mot immédiat 
? mot” n’est pas exécuté mais compilé. 
L’interpréteur ne tient pas compte de la 


valeur de son Precedence bit. 


La valeur sur un octet (” octet”) qui précède 
C, est chargée dans la première cellule libre 
du dictionnaire. 


octet” C, 


La valeur sur deux octets (” valeur ”) qui 
précède le mot, est chargée dans la première 
cellule libre du dictionnaire. 


valeur” , 


<BUILDS C’est l’entête du traitement correspondant 
” Traitement1” | au COMPILE-TIME. II est toujours utilisé 
DOES> en paire avec DOES>. 
” Traitement2” 
<BUILDS Indique la fin du traitement pour le 


COMPILE-TIME et représente l’entête du 
traitement (” Traitement2”) correspondant 
au RUN-TIME. Il est toujours utilisé en 
paire avec <BUILD. Après ” Traitement2 ” 
aucun traitement ne peut être intercalé 
avant le mot de fin de définition ;. 


? Traitement 1 ” 


DOES> 


” Traitement2 ” 


Ce mot réserve à la suite du dictionnaire le 
nombre ” nombre” d’octets. 2 2 


nombre” ALLOT 


12% 


:XE..__2E 1. 
Définissez en FORTH les mots , et C, à l’aide du mot ALLOT. 


EXERCICE 2: 
Définissez en FORTH le mot COMPILE. 


Indication: le pointeur d'interprétation, au sommet de la pile des return, 
pointe sur le mot suivant COMPILE dans la définition en 


cours de compilation. 


EXERCICE 3: | 
Définissez en FORTH les mots qui constituent la structure de contrôle IF 
__ ELSE ——— THEN (ou ENDIF). 


\'ET 


LES PROPRIÉTÉS 
PARTICULIÈRES 


VI1.1. LES VOCABULAIRES 


Comme nous l’avons déjà vu à plusieurs reprises, le dictionnaire est 
ramifié en vocabulaires. 


Chaque vocabulaire présente une structure de chaîne linéaire partant 
du nom du vocabulaire et allant continûment jusqu’à une feuille terminale. 


ASE 


itto.,.s de, sa | AC  ,1e VC. alair. __ resp une in ue Chanvc dont 1 auresse est 


à : : iU tua vOCue «dire ARE ET . , ,  . . 
. .eche: d'un... dar simplement rangée dans la définition du nom du vocabulaire: 


e. D] A à. L 
feuille terminale en remontant vers la racine. Elle ne s Ares pas a la ie 
contre du nom du vocabulaire, mais enchaine bel et bien jusqu à la racine de 
l'arbre. C’est en ces termes que l’on entend que tout vocabulaire contient le 


noyau FORTH. 


Cette organisation est tout à fait cohérente avec la structure des défini- 
tions dans le dictionnaire, puisqu’un seul pointeur aïriére suffit à 


l'implanter : 


Pour créer un vocabulaire, on utilise le mot de définition VOCABU- 
LARY qui, dans le vocabulaire courant, construit une tête de chaine au nom 
du nouveau vocabulaire. 


Exemple : à à — à 
P Ces vocabulaires peuvent être utilises de deux manières : en tant que 


VOCABULARY VOC2 OK | vocabulaire courant ou de définition, et c’est dans ce vocabulaire choisi que 
s’ajouteront les nouvelles définitions, ou comme vocabulaire de contexte, et 
c’est dans ce vocabulaire choisi que l’interpréteur effectuera les recherches 
des mots qui lui sont proposés. | 


Voc1 j , : 
Pour mettre en pratique cette notion, on dispose de deux user 


variables, CURRENT et CONTEXT. 


CURRENT pointe en permanence sur la zone de la définition du voca- 
bulaire courant qui contient le NFA du dernier mot créé dans ce vocabu- 
laire. Cette zone est située à l’adresse PFA+4 de la définition. 4127 


Voc2 


À T L Le nombre de vocabulaires est illimité. 


FT HR PTS, Alf Tone T° ne recu rs Le CUR- 
RENT & & _: c’est le mot LATEST. 


: LATEST CURRENT@ @ [Return] OK | 
À chaque nouvelle définition, CURRENT reste donc inchangé. 


La mise à jour du pointeur vers le dernier mot créé dans le vocabulaire 
courant se fait par une opération du type CURRENT @ !. 


CONTEXT pointe sur une zone analogue, cette fois dans la définition 
du nom du vocabulaire de contexte. 


Une autre facilité de FORTH permet de connaître l’ensemble des 
vocabulaires résidents à un instant donné. Pour cela, les noms des différents 
vocabulaires sont chaïînés entre eux de façon chronologique. 


La tête de cette chaîne est contenue dans la user variable VOC-LINK, 
qui pointe sur une zone située à l’adresse PFA +6 dans la définition du nom 
du dernier vocabulaire crée. 


Cette zone pointe elle-même sur la zone analogue dans la définition du 
nom du vocabulaire chronologiquement antérieur. 


Cfa ni 
Pfa+2 EE 
Pfa+4 — + — 
Pfa+6 D D 
Pfa+2 nn: 
Pfa+4 | 
Pfa+6 — + <— 


Nfa DER2 


ru CRT CR RTE or 
Bie Te to 5 pO aie s en ete € CIS, … pou 
tout de même vous donner une définition de VOCABULARY pour vous 


: VOCABULARY 


<BUILDS ( Création de la tête de chaîne, 


remplissage de Cfa et de Pfa ) 
A081, ( Initialisation de Pfa+2 ) 


CURRENT @ CFA , ( Initialisation de Pfa+4 ) 


HERE VOC-LINK @ ,(Initialisation de Pfa+6, et lien vers 
vers le dernier vocabulaire créé ) 


VOC-LINK ( Mise à jour de VOC LINK ) 


DOES> ( Placera le Pfa sur la pile lors 


de l'exécution du mot ) 
( fera pointer CONTEXT sur le 
vocabulaire choisi ) 


2+ CONTEXT ! 


: [Return] ok 


À la vue de cette définition, la première question que vous êtes en droit 


de vous poser est la fonction de 81A0 placé à l’ 
oct placé a l’adresse Pfa+2 de la défini- 


Les rares ouvrages qui se hasardent à élucider 81 A0 se contentent de 


l’appeler ”Dummy header” (t6 à ; 
ne y header” (tête de chaîne fictive). En effet, 81A0 corres- 


DOUTER 


Hot ooooo 


Msb Lsb 


. ‘On peut donc comprendre ces deux octets comme la tête de chaîne 
un mot dont le nom est un caractère blanc (Space). 


C’est effectivement comm d 
e cela que l’interpréteur le comor 
en 
NOUS reste à expliquer sa fonction. prend, et il 


pre | | ASS 


Crinnosors je nntre FORTH ait l’acnect ciivant : : £ 
Drerr 10t : OC] cha _:ser_ _lors _.… réal... . ,a té uv 


rs chaine fictive en question n’est autre que 81A0. 
Voc1 / / 


On peut maintenant faire un schéma plus complet : 


FORTH RS LE 
D TS 


CONTEXT 


À un moment, vous avez créé VOCI. et créé un certain nombre de 
définitions sous ce vocabulaire. Ensuite, de nouveau sous FORTH, vous 
avez créé d’autres mots. Placez vous maintenant dans VOCI, et faites 
VLIST sur votre terminal. Vous verrez les définitions apparaître dans 


l'ordre suivant : Forth 


Définitions faites sous VOC1 
{ trois espaces ) 
Définitions faites sous FORTH 


voc1 


Reste des définitions 


| Toute recherche dans le dictionnaire commence à l’adresse obtenue en 
faisant CONTEXT «@ 


| On est donc sur le mot fictif du vocabulaire de contexte. Son LFA 
pointe sur le NFA du dernier mot du vocabulaire. 


Pour le premier mot créé dans VOC1, son LFA pointe sur le NFA du 


| mot fictif dans le vocabulaire sous lequel VOCI a été créé 
L’arborescence a donc été parcourue d’une façon inattendue. | 
. | : | On trouve bien le passage par ces têtes de chaîne fictives dans VLIST, 
Sachant que VLIST ne fait qu’un enchainement systématique des Lfa à Qui apparaissent sous forme d’un caractère blanc. 


jusqu’à en rencontrer un qui soit nul, on peut envisager deux explications | 
possibles : FE. 
— Le Lfa du premier mot créé dans VOCI pointe sur le Nfa du der- : 


nier mot créé sous FORTH. Cela suppose que chaque nouveau mot cree 
sous FORTH nécessite une mise à jour de ce Lfa. 


Au passage, voici l’algorithme de parcours de VLIST, qui est d’ailleurs 
Ique pour toute recherche dans le dictionnaire : 


— Ou bien, sachant que dans la définition du vocabulaire FORTH, le 
contenu de la cellule d’adresse Pfa+4 pointe en permanence sur le Nfa du 
dernier mot créé dans ce vocabulaire, il suffirait de prendre cette cellule | | | d4A 
pour un Lfa, et de faire pointer sur.le Nfa le mot fictif correspondant le Lfa 


A 40 


AT 


FARCCETT 
CONTEXT @ @ ( Nfa du dernier mot créé dans le 
vocabulaire de contexte. | 
BEGIN 
DUP ( NFA NFA ——— ) 


TRAITEMENT( Doit consumer un Nfa }) 


PEA (| PFA——— ) 
LFA CPAS.) 
@ ( (LFA) ——— ) 
DUP ( (LFA) (LFA) ——— } 
O=— ( (LFA) flag ——— ) 
UNTIL 


DROP 


| Return|OK 


L'application directe est VLIST où le traitement à effectuer consiste à 
faire un éventuel passage à la ligne, et à éditer le nom du mot: 


: TRAITEMENT 
OUT @ { Donne le nombre de caractères émis ) 
C/L { Donne le nombre de caractères/ligne ) 
> 
IF 
CR ( Passage à la ligne ) 
O OUT ! _( Reset du compteur de caractères ) 
ENDIF 
DUP 
ID. { Affiche le nom à partir du NFA |} 
SPACE 
[Retumlok 


Re ns r  enatl 


con! ___ de [£ ....niticu ue VOL ADULARr. 
La séquence: 


A081, 
CURRENT @ CFA, 
peut se décomposer en deux temps: 


— Création de la tête de chaïîne fictive. 


— lnitialisation du LFA de cette tête de chaîne fictive : on le fait poin- 
ter sur le NFA du mot fictif dans le vocabulaire courant, sous lequel ce nou- 


veau vocabulaire est crée. L’action du mot CFA n’est autre que 2—, comme 
nous l’avons déjà vu. 


On peut représenter ces actions par le schéma suivant : 


Avant la définition de VOC2 


CURRENT 


Après la définition de VOC2 


Dernier mot créé avant VOC2 


La séquence suivante : 
HERE VOC-LINK @ 
VOC-LINK ! 


correspond à l’introduction de VOC2 dans le chaînage parallèle des 


vocabulaires. A2 


Au 


Avant ‘nitiÙ  9JC2 Aprè  finitii  ‘OC2 


VOC-LINK | VOC-LINK voc1 


Pfa +2 AO81 


Dernier mot créé 


Pfa+4 


Nfa VOC2 


Pfa+6 


La séquence exécutée à l’appel du nom du vocabulaire : 


2+ CONTEXT ! 
fait pointer CONTEXT sur la cellule d’adresse PFA +4 dans la definition 
du vocabulaire. Le vocabulaire devient alors vocabulaire de contexte. 


Si aucun mot n’a encore été défini sous ce vocabulaire, cette ZONE 
ee EURE 
pointe sur la tête de chaine fictive dans la définition du vocabulaire “pére . 


Dans le cas contraire, elle pointe sur le dernier mot défini sous le voca- 
bulaire considéré. 


Voyons en détail ce qui se passe à la création du premier mot sous 
VOC2, VOC2 étant alors le vocabulaire courant. 


L'interpréteur va chercher dans la définition de VOC2, à l'adresse 
PFA+4, le NFA du dernier mot défini, qui va constituer le contenu cu LFA 
du mot en cours de définition. Il mettra ensuite dans la cellule d adresse 
PF A+4 dans la définition du VOC2 le NFA du mot qui vient d’être defini. 


Ce processus général aura pour conséquence, lorsque l’on créera le 
premier mot de VOC2, d’initialiser le contenu du LFA de ce dernier au 
NFA de la tête de chaîne fictive du vocabulaire pére de VOC2. 


Il reste à voir comment passer dans un vocabulaire de définition (cou- 
rant) donné: c’est le mot DEF INITIONS, dont la définition est: 


: LerITIGNS 
CONTEXT @ 
CURRENT ! 

: Retum}Ok 


qui rend le vocabulaire de contexte vocabulaire courant. Ainsi, pour rendre 
un vocabulaire courant, il faut d’abord le rendre vocabulaire de contexte. 


Exemple : 


VOC2 DEFINITIONS [Return|Ok 


Le fait de taper VOC2 rend VOC2 le vocabulaire de contexte, et celui 
de taper DEFINITIONS rend le vocabulaire courant identique au vocabu- 
laire de contexte (ici VOC2). 


Dans une application FORTH professionnelle, il est crucial que l’utili- 
sateur n'ait accès qu’à un vocabulaire restreint de mots de haut niveau, spé- 
cifiques à ses besoins. 


On part de l'hypothèse que l’utilisateur n’a comme unique possibilité 
que de taper les mots clés de son application. 


Il suffit pour cela d'isoler tous ces mots dans un même vocabulaire que 
l’on rend vocabulaire de contexte, puis de rompre la chaîne qui relie le pre- 
mier mot de ce vocabulaire spécifique à son vocabulaire père. 


L’interpréteur ne fera donc ses recherches que dans la branche ainsi 
isolée. 


Dans un autre ordre d’idées, il est souvent utile dans des définitions de 
faire appel à des mots résidents dans des vocabulaires n’ayant aucun lien de 
parenté. 


La seule manière de procéder est de rendre les vocabulaires en ques- 
tion immédiats. N'oubliez pas que le mot IMMEDIATE n'’agit que sur le 
dernier mot créé. Il faudra donc rendre les vocabulaires immédiats dès leur 
création. 


Exemple: 


VOCI et VOC2 ont été déclarés immédiats. Supposons que nous 
sommes dans VOC2 comme vocabulaire courant et de contexte, et que nous 
voulons définir un mot TEST2 qui utilise le mot TEST 1 défini dans VOC1. 
La solution est la suivante: 

145 


TES VOC1 TESTI VOC2 ——-; 


Abe 


"SCT sut its é pa Tenues Mist a rende ..cabu 
laire de contexte et a donc reconnu le mot TESTI. Le retour au vocabulaire 
de contexte initial se fait par VOC2. Ceci n’est possible que parce que les 
deux vocabulaires sont immédiats. 

Si les deux vocabulaires n’avaient pas eu de lien direct, il aurait été 
nécessaire de parcourir la chaîne à la main, en repassant par FORTH par 
exemple. 


VII1.2. LA SEGMENTATION 


Comme le dit très bien MEYER : ” La tâche de base du programmeur 
est de négliger à chaque niveau tous les détails non pertinents, faire abstrac- 
tion de ce qui peut être remis à plus tard pour pouvoir constamment domi- 


ner les problèmes étudiés”. 


Chacun de ces niveaux d’abstraction représente une couche logique 
dans la décomposition du problème. 


Exemple: : 
Décomposons le problème de l’affichage de tous les mots du vocabu- 
laire courant (VLIST): 


Édition de tous les mots du 


Niveau 0 vocabulaire courant 
‘ Adresse non nulle? 
; Trouver l'adresse | 
Niveau 1 du premier mot — éditer le mot 
— trouver l'adresse 
du suivant 
Positionner le 
Chercher le 
Niveau 2 a ae a 
Mettre à jour la 
Afficher les us 
sition du curseur 
Niveau 3 caractères pe 


d'un mot 


N_._5 qu. ..itéré. Le cetw ueCOmMpusition uepend intimement de 
trois critères : La complexité du problème, le niveau d’évolution de l’outil de 
programmation et l’habileté du programmeur. 


Une fois admis le principe de la décomposition d’un problème en 
couches logiques, une question importante se pose : Dans quel ordre aborder 
ces niveaux ? 


* Deux méthodes se présentent d’elles-même : On peut faire des décom- 
positions successives jusqu’à aboutir à un niveau de problèmes solubles par 
le langage de programmation. C’est l’analyse descendante. 


On peut, au contraire, partant d'outils construits briques par briques, 
remonter vers le problème global en s’appuyant à chaque étape sur des 
résultats déjà réalisés. C’est l’analyse ascendante. 


Cette dernière conception n’est en fait effectivement applicable que sur 
la base d’une décomposition poussée des problèmes, que l’on peut regrouper 
par familles, pour construire des outils de plus en plus évolués. 


Problèmes posés par la méthode descendante : 


— Les choix initiaux, opérés aux niveaux les plus élevés sont cru- 
ciaux. Il est très difficile de les remettre en cause sans refaire totalement 
l'analyse. 

— L’arborescence obtenue peut masquer des similitudes entre sous- 
arbres. C’est pourquoi il est souhaitable de toujours faire suivre une analyse 
descendante d’une synthèse pour mettre en lumière le caractère général de 
certains problèmes. 


Problèmes posés par la méthode ascendante : 


— L'expérience prouve qu’une synthèse ascendante mêne à faire des 
hypothèses trop fortes dans la réalisation des différents modules. 

— Les interfaces sont alors trop lourdes à manipuler. Ceci peut ame- 
ner à une catastrophe lorsqu'on sait qu’en FORTH, il est surhumain de 
manipuler plus de quatre ou cinq données dans la pile. 


— Par ailleurs, il n’est jamais exclu de trouver des incompatibilités 
entre problèmes à résoudre et modules déjà réalisés, ce qui amène inévita- 
blement à remettre en cause la quasi-totalité de ces outils. 


Quels enseignements tirer en FORTH de ces concepts généraux ? A4T 


FORTH fait que les définitions des mots ne peuvent dépasser une cer- 
taine taille sans entraîner une lourdeur inacceptable. Les modules qui 


A4 


Elluvs dati 1x TÉdouu ON Cruu PrOE-S- dO1-2. don: se CC. ét 
sultants de choix délibérés. 


Une des limites à la segmentation dans les langages traditionnels est la 
lourdeur des interfaces entre modules. (Déclarations des paramètres). 
FORTH résoud le problème en fournissant, en plus des variables, une pile 
de données. 


FORTH optimise la taille occupée en mémoire par les différents 
modules. Il n’y a pas de passage de paramètres au sens traditionnel, la partie 
non-active du code correspondant à chaque module est limitée à sa plus 
simple expression, c’est la tête de chaîne. 


On pourrait trouver FORTH limité dans les types de passages de para- 
mètres entre modules. 


Nous pensons que cette focalisation sur les passages de paramètres 
n'est que le fruit de mauvaises habitudes d'analyse dans des langages un peu 
archaïques. Ils contribuent à embrumer la lisibilité globale du programme et 
favorisent une certaine paresse du programmeur. 


Si vous analysez sainement les problèmes, vous n’y serez jamais 
confronté. 


Un facteur important dans la mise au point d’une méthode de pro- 
grammation est celui des tests. 


L'expérience prouve qu’à partir d’une certaine complexité de pro- 
blèmes, la charge de travail représentée par les tests est considérable. Sou- 
vent même, le résultat s’avère imparfait, car il n’est pas toujours aisé de tes- 
ter tous les cas. 


Une analyse descendante par couches logiques amène naturellement à 
une méthode systématique de tests logiques. 


Dans une couche donnée, les éléments de niveau inférieur s'ils ne sont 
pas écrits, sont cependant spécifiés fonctionnellement. 


On peut alors les remplacer, pour tester l’élément qui les utilisera, par 
des échafaudages, qui effectueront des traitements simples conformes, au 
moins en partie, à la spécification fonctionnelle, mais sans rapport avec le 
problème à traiter. 


Pour vous en convaincre, examinons ensemble un cas concret: Lister 
sur une imprimante un fichier simple en assurant correctement la gestion 
des en-têtes et des pieds de page. 


On se fixe comme seule condition de saut de page une page pleine. 


| L rithr en /OUS .  )Joso  olor .._ men. ..- DNÉ, —. Ne 
suivant : | oo M M 


: LISTE 
CR 
PAGE (<— saut de page, mise à zéro du 
compteur de ligne, édition de 
BEGIN l'en-tête) | 
N—EOF (<— tester la fin du fichier) 
WHILE 
LIRE | (<— lire un enregistrement) 
EDITER (<— l'imprimer) 
INCREMENTER (<— incrémenter le compteur de 
lignes) 
TESTER (<— tester le nb de lignes/page) 
IF 
F-PAGE (<— édition du pied de page) 
PAGE 
THEN 
REPEAT 
F—PAGE 


: Return]Ok 


Les points névralgiques de cet algorithme résident dans le comporte- 
ment de N—EOF et TEST. 


Voici les définitions fictives nous allons donner aux autres mots, et ce 
Sans toucher une virgule à la définition de LISTE. 

: PAGE O LIGNE ! .” EN TETE "CR ; Return! OK 

: F-PAGE . PIED EH 


. CR ;/Ret OK 


: EDITER LIGNE @ . CR :[ReturnJOK( LIGNE contient le n° de ligne) 
: INCREMENTER LIGNE 1+ !; OK 


: : . | | 
Pour tester efficacement | algorithme, il est nécessaire d'examiner son 
Comportement pour toutes les valeurs possibles, c’est-à-dire : 9 


CAS 4 : ES! 0 ‘[Ret'irn io Kk 
5 VARIABLE BIDON Return {OK 
: NEOF BIDON DUP 1— +STORE @ 5 / :|ReturnlOK 


N— 7 vala | mpc' ente "STr 7" 1s in‘<-"-se 
pas puisque l'on ne rentre pas dans la boucle. 


2) N—EOF valant 1 TEST prenant la valeur O un certain nombre de | 
fois puis prenant la valeur 1. | LISTE 
3) TEST valant O N—EOF passant de 1 à O0. EN TETE 
1 
4) TEST valant 1 N—EOF passant de 1 à O0. 2 
3 
Le cas de la transition de N-EOF de 0 vers 1 est impossible du fait 4 
même de la structure des fichiers séquentiels. PIED 
ok 
cas | : N—EOF 0: Return|OK 
LISTE /Retu rn | 
EN TETE . 
PIED OK La fin de fichier déclenche bien. 


On constate qu’un fichier vide déclenche une édition. 
Il est toujours bon de le savoir. 


: N—EOF 1 ;[Return |OK | cas4  : TEST 1; Return|OK 
. TEST LIGNE @ 5 = ;|Return]/OK | ds 
LISTE (Return) a 

| E 


cas 2 


EN TETE 

1 1 

2 2 

3 3 

4 4 

PIED PIED 
ENTETE EN TETE 
PIED 

: OK 

OK 


Le saut de page déclenche bien. 
on a de page parasite que l’on n’aurait jamais détecté sans ce 
crible systématique de toutes les possibilités. | 


C’est le cas où le saut de î 
page dû au nombre de lignes coïnci - 
ment avec la fin du fichier. : ca 


L’algorithme correct est en fait le suviant : À 2 d 


A SO 


: 'ISTE 
CR 
PAGE 
BEGIN 
N-EOF 
WHILE 
TESTER 
IF 
F-PAGE 
PAGE 
THEN 
LIRE 
EDITER 
INCREMENTER 
REPEAT 
F-PAGE 


: [ReturnJOKk 


Cette méthode a le mérite, si elle est poursuivie de façon systématique, 
d'assurer le test couche par couche de l’ensemble de l’application. 


Toutefois on a pu remarquer que la construction de tels échafaudages 


et non triviale. Une analyse poussée préalable 


peut être une tâche lourde | re 
permet dans tous les cas d'éliminer rapidement des familles de cas évidents 


ou impossibles. 


VII.3. LA RÉCURSION 


La récursion, c’est la possibilité de faire figurer dans la définition d'un 


objet, une référence à l’objet lui même. 


Cette notion d’objet est trés vaste: 


ASC 


Foi__:s m_.…..nati.… : 
Fonction factorielle : 
O1 
N! N x (N—1)!  VY N>O 


Fonctions combinatoires : 


O 3 

DC 1 V nEIN 
n 
m 

C —=0 V mn E INXIN et m>n 
n 
m m—1 m 

CET + C V mn E INXIN et m<=n 
n n— 1 n—1 


— Structures de données 
Arbre binaire : 
type ARBRE-BINAIRE =<(VIDE:ARBRE-BINAIRE-NON-VIDE) 
type ARBRE-BINAIRE-NON-VIDE-(racine:T ; sag,sad : ARBRE-BINAIRE) 


sad : sous-arbre de droite, sag: sous-arbre de gauche 


Dans les deux premiers exemples, la récursion était directe, c’est-à-dire 
que l’appel récursif à l’objet se faisait dans la définition même de l’objet. Ce 
n’est pas toujours le cas, comme le montre la définition des arbres binaires. 


Pour le lecteur non averti, le concept de récursion semblera peut-être 
n'être qu’un jeu de l'esprit dont la solution va se perdre à l'infini des appels 
récursifs. 


On se doute bien en effet qu’une condition sine qua non dans l’utilisa- 
tion de la récursion est que les objets engendrés doivent être finis. Tout 
ensemble de définitions récursives devra donc impérativement contenir une 
clause telle que dans certains cas, l'évaluation puisse se faire sans appel 


récursif. 


Une autre condition déterminante dans le succès d’une définition 
récursive est la présence d’une quantité de contrôle dont on est assuré qu’elle 
converge strictement à chaque appel récursif. » SZ 
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E) le : 
__ Dans le cas de la fonction factorielle, la quantité de contrôle est 


l'argument lui-même, et la clause d’évaluation immédiate est O!=I. 


__ Dans le cas d’un arbre binaire, la quantité de contrôle est la hau- 
teur de l’arbre, et la clause d’évaluation immédiate est VIDE. 


FORTH et la récursion 
FORTH n'offre à première vue aucune possibilité directe de récursion. 
Essayez pour vous en convaincre de définir: 


. OBJET OBJET:[Return] OBJET Msg#O OK 


L’interpréteur n’acceptera pas cette définition car il a recherché dans le 
vocabulaire une définition valide des mots qui la composent, a savoir 
OBJET. La tête de chaîne de OBJET existe bien (créée par : ), mais n’a pas 
encore été validée (rencontre de ; ). 


La solution la plus élégante consiste à valider manuellement OBJET 
avant l’appel récursif en utilisant le mot SMUDGE qui est,fort heureu- 


sement, immédiat. 


Exemple : 
: FACT 
SMUDGE DUP 
IF 
DUP 1 — FACT * 
ELSE 
DROP 1 
THEN 


: [Return |OK 


La définition sera acceptée cette fois par l’interpréteur. Essayez alors 
de l’exécuter en tapant 3 FACT par exemple. 


Un message d’erreur apparaît indiquant qu'il n’existe pas de définition 
valide de FACT !!!. 


Pour comprendre ce mystère, il faut se souvenir que SMUDGE ne fait 
que complémenter le SMUDGE BIT (bit de validité de définition) dans la 
tête de chaîne de la dernière définition créée. 


Il en est de même quand ; valide une définition. Les deux complémen- 
tations successives s’annulent donc. 


[1 va donc suffire d'introduire une complémentation supplémentaire en 
intégrant un second SMUDGE en fin de définition. 


L_. .onne ....nitic, ue FAC: est Gun : 


: FACT " 
SMUDGE DUP 
IF 
DUP 1— FACT * 
ELSE 
DROP 1 
THEN 
SMUDGE 


: [Return] OK 


Comme nous venons de le voir, l’implantation de structures récursives 
directes est très aisée en FORTH. 


Il existe une autre méthode plus lourde, qui consiste à réserver deux 
octets dans la définition du mot récursif. 


On viendra ultérieurement ranger à ces emplacements réservés, le 
CFA du dit mot, de façon à rendre la définition définitivement récursive. 


Pour ce faire, on remplace la référence récursive par un mot fictif, en 
l'occurence NOOP, choisi car il n’a strictement aucune action. 


: NOOP : [Return] Ok 


La définition étant validée, l’opérateur fait appel au mot RECURSE, 
qui va rechercher le CFA du dernier mot defini, et le substitue au CFA de 
NOOP dans la définition. 


C’est ce type de méthode qui permet d’implanter des structures récur- 
sives indirectes. 


Nous développerons dans le dernier chapitre deux algorithmes récur- 
sifs classiques: les tours de Hanoï, et les huits reines. 


Un des obstacles à l’implantation de la récursion dans les langages 
évolués est le passage de paramètres lors de l’appel des procédures. Le pro- 
blème qui se pose pour gérer la récursion est la sauvegarde, à chaque appel, 
des informations nécessaires à la poursuite de l’exécution au niveau n, après 
le retour de niveau n—1. 


Les contextes correspondant à chaque niveau doivent donc pouvoir 
être rappelés dans l’ordre inverse de leur sauvegarde. On conçoit facilement 
que c’est typiquement une structure de pile LIFO qui permettra de gérer les” 
Sauvegardes et les rappels successifs. y. S D: 
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C ut Uhr us raisons pou, quel... … plu, …. des i....-pes .._.sifs 
évolués utilisent des piles, comme le fait FORTH. 


VII.4. LE MULTITASKING 


FORTH appartient à une famille de langages capables de gérer plu- 
sieurs tâches simultanées sans l’aide d’un système d’exploitation externe. 


Dans les langages traditionnels, la résolution de ce problème a ete 
sous-traitée au programme de contrôle de la machine, qui est généralement 
fourni par le constructeur. 


Cette possibilité présente un intérêt considérable sur les micro- 
ordinateurs, où le multitasking est très rarement implanté. 


Les raisons principales sont souvent de trop faibles ressources en 
e. LA . . r « L e. e. 
mémoire vive pour faire résider simultanément un systéme d'exploitation et 
un langage, ainsi que la lenteur des mémoires de masse. 


Avec FORTH, nous disposons des avantages suivants : 


_—_ Le noyau de base, purement réentrant est partageable par N tâches 
simultanées. Son taux d’utilisation est considérable, puisque l'exécution de 
tout mot FORTH y aboutit inévitablement. 


__ L'allocation mémoire pour chaque tâche est dynamique : tous les 
mots qui composent les différentes applications sont rangés séquentielle 
ment en mémoire, et sont reliés par vocabulaires grâce au chaïinage entre- 
tenu par l’interpréteur. De plus, Îles définitions de mots sont extrêmement 
compactes. Une application FORTH complète et bien écrite occupe moins 
de place que si elle avait été écrite en ASSEMBLEUR. 


[L est tout à fait raisonnable d’imaginer cinq tâches travaillant simulta- 


nément en FORTH sur 48 Koctets, ce qui correspond à une configuration 
classique de micro-ordinateur 8 bits. 


L'objet de ce paragraphe n'est en aucun cas d’entrer dans le détail de 
l'implantation du multitasking. La gestion des ressources non partageables. 
par exemple, est, selon la formule trop bien connue, ” beyond the scope of 
this book”. Nous nous proposons simplement de dégager les grands prin- 
cipes d'implantation. 


Il existe un ” super FORTH” appelé Poly-FORTH qui propose entre 
autre le multitasking et qui est commercialisé pour de nombreuses 


machines. 


L’e on d mer __, map -.n FL... H nc utiliouwur Afraiuun 
les remarques suivantes : 


Noyau pré-compilé 


C'est le noyau FORTH 
réentrant, et commun 
à tous les utilisateur. 


Définitions standard 


Dictionnaire utilisateur 


NNNNR 


PAD 


Pile de données 


Variables système 


Ce bloc est non réentrant 
mais sa taille totale 

est fixe et dépend de 

la configuration choisie. 


I devra donc être 
dupliqué pour chaque 
utilisateur. 


Terminal Input Buffer 


Pile de Return 


User Variables 


Block Buffers 


Dans un système multi-utilisateurs, on aura besoin de tâches secon- 
daires, fonctionnant en back-ground. La memory map de telles tâches 
Pourra avoir la structure suivante: 


IST 


Noyau pré-compilé 


Variables système 


On remarque que ce type 
de tâches ne définit jamais 
de mots, donc le diction- 
naire est figé. 


Définitions standard 


Pile de données 


KK 


Pile de Return 


De plus, il n'y a pas de 
PAD ni de TIB à prévoir, 
puisqu'il n'y a pas de 
terminal. 


SN 


User variables 


Block Buffers 


Pour pouvoir configurer dynamiquement la taille des zones mémoire 
allouées à chaque tâche, il sera pratique de particulariser un utilisateur, qui 
jouera le rôle d’opérateur. 


La configuration la plus naturelle pour le système multi-utilisateur 
sera donc la suivante: 


Noyau pré-compilé 


Variables système 
Définitions standard 


Utilisateur 2 


Contrôle 1 
Contrôle 2 


Block Buffers 


Les Block Buffers sont partagés pour faciliter la gestion du partage de 
la mémoire de masse. 


RÉSUMÉ DU CHAPITRE VII 


Définition 


Mot de définition d’un vocabulaire dont 
le nom est ” voc ”’. 


VOCABULARY|VOCABULARY ” voc” 


DEFINITIONS |” voc” DEFINITIONS Le vocabulaire de contexte étant ” voc ” 
(dès que l’on tape voc), le vocabulaire 


courant devient aussi ” voc ”. 


SMUDGE Complémente le smudge bit du dernier mot 


créé. À S à 


SMUDGE 


Visa 
PROBLÈMES 


Dans ce chapitre, nous vous proposons de résoudre en FORTH 
quelques problèmes simples, pour vous familiariser avec le langage. 


Les problèmes sélectionnés sont les suivants : 
1. Manipulations de nombres complexes. 
. Le jeu de la Vie (Univers de CONWAY). 
. Fonctions trigonométriques. 
. Les tours de HANOI (Récursion). 
. Les huit Reines (Récursion). 
. Le calendrier grégorien perpétuel. 


. Fichiers séquentiels. 
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. La transformée de Fourier discrète. 


PROBLÈME 1 — MANIPULATIONS 
DE NOMBRES COMPLEXES 
Rappels mathématiques. 


Un nombre ” complexe” est en fait un couple de nombre réels sur 
lequel on autorise les opérations suivantes : , b J 


À 60 


- A CE 279 3 I<N eh = : | | 
- (a1 ie 2) | On ..… rem.....2r les ,.-priét.. .uivar. es fFLu:ons nivdule 


addition interne : c1+c2 := (a1+a2,b1+b2) | ‘argument ” 

multiplication | lc1xc2| = Ic1l.Ic2| 

ES el+c21  <icil+ lc21 

nom réel : s.c1 :— (s.a1,s.b1) | 
nn arg(cixc2) — arg(c1) + arg(c2) 

multiplication | 

interne par un | Cette dernière propriété est intéressante, car elle va nous permettre 
nombre complexe : cixc2 := (a1.a2 — b1.b2,a1.b2+a2.b1) M d'étendre la notion d’exponentielle réelle à celle d’exponentielle complexe, 


puisque l’on convient de noter : 

Il ne saurait être question d’étendre plus avant l’ensemble des proprié- 

tés mathématiques de cet ensemble. Notons simplement que l’on convient de 
représenter un nombre complexe sous la forme: 


c — d.(sin(x)+i.cos{(x)) — d expl{ix) 


où d= lclet x = arg{c). 


c:= a+ib | Le problème consiste à générer la structure de donnée 
| ” nombre complexe”, en virgule fixe, avec AeQues Opé- 
rateurs d'application, à savoir: 


où ”’i”, nombre complexe par excellence, vérifie : 


, 


ik) = —1 
addition, soustraction, 


L'ensemble des nombres complexes, espace vectoriel de dimension É multiplication par un réel, 

deux, admet donc pour base 1 et 1. : multiplication de deux nombres complexes, 
5 4 | module, 

On convient également d'appeler ” conjugué” d’un nombre complexe argument. 
son symétrique par rapport à l’axe réel. 
Ainsi : c := a+ib 

—— 1. Génération de nombres complexes 

aura pour CONJUBUE : c': = a—ib | 


Comme vous vous en doutez, il faut utiliser les outils de définition de 
On appelle également ” module” d’un nombre complexe la grandeur : | mots de définition pour résoudre cette première étape. 


La nouvelle structure de données qui nous intéresse présente les carac- 


[ci := (a.a+b.b) 1/2 +. 

téristiques suivantes : 
Ce qui géométriquement représente la longueur du vecteur réel: : — Chaque donnée comprend simplement deux nombres réels, du fait 
DE | de l’isomorphisme du plan réel et du plan complexe. 


— L'accès à chaque variable complexe se fait par son nom, ce qui 
| | aura pour effet de retourner sur la pile l’adresse de la composante imagi- 
Pour continuer avec les analogies géométriques, on introduit naturelle- naire, la composante réelle la suivra en mémoire. 
ment ” l’argument ” d’un nombre complexe, qui correspond à l’angle du vec- | | 
teur réel avec le vecteur (1,0): 


. 3 
Compte tenu de ce que ixi=—1, on constate que |c|? = cxc’. 


— La syntaxe de création d’une variable complexe étant : 
arglc) = arctg (b/a) | PR IM COMPLEXE nom-—de-—la—-variable 
où PR représente la partie réelle, et IM Ia partie imaginaire pure. 


On pourra donc écrire: ns: ns | 
: La définition du mot de définition de variables complexes sera donc, 


Ci= Icl.( sin (arg(c)) + i cos (arg{c)) ) | de façon naturelle : A L 8 
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POMPES 
<BUILDS . | 
(range successivement dans le dictionnaire) 
| (les deux valeurs au sommet de la pile.) 
DOES> 


(l'adresse souhaitée est déjà sur la pile) 


(Return |OK 


On pourra maintenant écrire : 
1 2 COMPLEXE UN—DEUX |Retum]|OK 


La structure ainsi générée a donc l’anatomie suivante : 


Tête de 
chaine 


pointeur 
pointeur 


Dotons-nous immédiatement d’outil pour accéder à la valeur des 
variables complexes : ÿ 


: X@ ( adr.…reim ) 

DUP ( adradr… ) 
@ ( adrim.…. ) 
SWAP ( im adr… ) 
2+ ( imadr+2 … } 
@ ( imre… ) 
SWAP ( reim… }) 

 [Retum]ok 

: XI ( reim adr…. } 


SWAP OVER ! 2+1! 


[Fetunlok 
À && 


+. Dpé._ cours Lour Non res surriplexes 
L’addition se fait de façon très simple: 


: X+ ( relimlre2 im2 …rel+re2 iml+im2 ) 
ROT  ( relre2 im2 im1i… ) 
+ ( relre2 imli+im2.… }) 
>R ( relre2… ): 
+ ( rel+re2 … ) 


R> ( rel+re2 imi+im2… ) 


La soustraction : 


: X— ( relimire2 im2 ….rei-—re2 iml—im2 ) 
ROT { relre2 im2 imi … ) 
SWAP ( relre2 imiim2… } 
— ( re1 re2 iml—im2 … }) 
>R ( rel re2 … ) | 
— ( rel—re2 … ) 


R> ( rel—re2 iml—im2 ) 


: [Return JoK 


La multiplication par un réel, 


: Xe’ ( re im sc. rexsc imxsc ) 
SWAP OVER  ( rescimsc… ) 
* ROTROT »% { imxsc rexsc … ) 
SW AP ( rexsc imxsc … ) 


: [Retum]OKk 


Enfin la multiplication de deux nombres complexes : 


465 
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… X* br sr 1.2 A UI2 =. 2 Fr csre. ) 
2O0VER 2O0VER ( C1C2C1C2.…) 


ROT * ({ C1C2r1r2 i1.i2… } 

R> x R> —  ( C1 C2 r1.r2—i1.i2 … ) 

R> { r1r2i1i2… ) 

ROT ROT « ( r1i2 i1.r2 … ) 

R> x R> + ( r1.i2 il1.r2 … ) 

R> { r2.2+i1.r2 ri.r2—i1.i2 … } 


: [Return}OK 


Le conjugué d’un nombre complexe est pour mémoire : 
: BAR MINUS :;[Return]OK 


, « . s 
On ne peut alors accéder au module:et à l'argument que si l'on a Îa 
fonction racine. 


. R2 2OVER BAR X« : [Return] OK 


: ARG ({ re im … sinus(argument}) cosinus(argument)) 
2DUP ( reimreim.…. ) 
R2 SOR ( reimd.… ) 
1 SWAP/  ( reim1/d.… ) 
X% 


[Return]OK 


PROBLÈME 2 — LE JEU DE LA VIE 


Les règles de ce jeu furent pour la première fois exposées à 
l'occasion d’un article publié par Martin GARDNER en 1970 
dans le Scientific American. La paternité en revient a John CON- 
WAY, de l’université de Cambridge. 


Le principe est d’obtenir une population d’objets dans un un!i- 
vers plan qui vont naître, vivre, se reproduire et mourir selon des 
règles sociales très simples. 


Les critères de choix de ces règles sociales sont les suivants: 


1. Il ne doit pas exister de forme initiale telle qu’une démons- 
tration simple indique une croissance illimitée. 


… I GS. existe, às fOriuvs Initiuies qui Env ainent uiic Crois- 
sance illimitée. 

3. Il doit exister des formes initiales qui changent pendant 
une très longue période de temps avant de finir de l’une 
des trois façon suivantes: 


— disparition complète, 
— forme stable, 
— oscillation sur plus de deux périodes. 


En bref, l’évolution de la population ne doit pas être 
prévisible. 


L'environnement de chaque cellule est constitué par les huit cellules 
adjacentes (quatre perpendiculaires et quatre diagonales). 


Les lois sont les suivantes : 


— Toute cellule avec deux ou trois voisins survit. 


— Toute cellule ayant au moins 4 voisins meurt de surpopulation, et 
toute cellule ayant moins de 2 voisins meurt d'isolement. 


— Tout emplacement libre ayant trois voisins est l’objet d’un heureux 
événement. 


Les naissances et les morts ont lieu simultanément, et correspondent 
ensemble à une nouvelle génération. 


Réalisation : 


Pour des raisons évidentes, nous allons restreindre le champ d’évo- 
lution de la société à un plan fermé de dimension finie. 


Il est naturel de représenter notre univers par un tableau, où la valeur 
de chaque cellule indique la présence ou l’absence d’un habitant. 


Pour visualiser les évolutions, on affichera le tableau en affichant des 
étoiles aux emplacements correspondants aux cellules habitées, et des 
espaces blancs partout ailleurs. | 


Le problème se pose de ne pas faire interférer dans l’algorithme les 
naissances et les morts d’une même génération. Il faut donc balayer tout le 


contenu du tableau, localiser les cellules sujettes à modification, et effectuer 


toutes les modifications simultanément, pour pouvoir construire la généra- 


tion suivante. J TAN 4 


prer idéé , vien. .. »spri. .… de t: .. Ier su: Ueux cuuivaux. 
Cette solution, bien que simple, est forte consommatrice de mémoire. 


Une solution plus élégante consistera à coder dans chaque cellule d’un 
même tableau non seulement la présence ou l’absence d’un élément à la 
génération N, mais aussi des informations sur son avenir à la génération 
N+1. - 


Génération N+1 


Mort : 5 


Le codage choisi est : 


Generation N 


Existant : 1 


Survie: 1 ou 3 


Inexistant : O Naissance: 2 


Inchange : 0 ou 4 


En d’autres termes, une cellule sera occupée à la génération N+1 si la 
valeur de cette même cellule à l’issue du balayage de la génération N est 1,2 
ou 3. Dans tous les autres cas, la cellule sera vide. 


On peut d’ores et déjà écrire les grandes lignes de l’algorithme, le 
nombre d’étapes étant placé sur la pile avant l’exécution. 


: JEU O DO 
AFFICHER ( Affiche la génération N ) 
GENERER ( Balaye la génération N }) 
NORMALISER ( Construire la génération N+1 ) 
LOOP 
AFFICHER ( Affiche la dernière génération ) 


Il re _.onc _ _.inir . … 1OtS , «4 à ICHax, GEivinER ci iNO0RMA- 
LISER, ainsi que les mots: 


— CLEAR qui permettra une remise à zéro de l’univers. 
— SET et RESET qui permettront d’initialiser la population. 


L'outil de base dans la définition de tous ces mots est le mot de défini- 
ion ARRAY qui permettra de manipuler aisément le tableau. 


Pour définir le tableau univers, on écrira : 


DimensionX DimensionY ARRAY UNIVERS 


et pour accéder à une cellule (X, Y) on tapera: 


X Y UNIVERS 


qui retournera sur la pile l’adresse de la cellule correspondante. 


La definition de ARRAY sera : 


: ARRAY ( DimX DimY ——— ) 
<BUILDS 
OVER , ( Met DimX au Pfa+2 ) 
# ALLOT ( Réserve DimX * DimY octets }) 
DOES> 
DUP @ ( Ramène DimxX sur la pile }) 
ROT x ( Calcul de IndY x DimX ) 


be 2 2 ( Calcul adresse absolu de la cellule ) 


On remarquera que les indices des tableaux générés par ARRAY évo- 
luent dans l’intervalle [0,DimX—1] * [0,DimY—1|. 


Il est maintenant très aisé de définir les mots suivants: 


A69 


si ( IndY _  -). L es __ 'alg ime  rmé ion, ptet... de ls ._ifica..….. choi… 
st trés simple: 
UNIVERS 1 SWAP CI . d 


| : NORMALISER ( ——— ) 
. RESET { IndX IndY ——— ) | DIMY © Do 
UNIVERS O SWAP CI | DIMX © DO 
| | J UNIVERS DUP C@ ( Adval——- }) 
: CLEAR No) | DUP 3> 
DIMX O DO | IF 
DIMY O DO | DROP O ( Ad O——-— ) 
| J RESET | ÉLSE 
LOOP | DUP 1> 
LOOP | LF 
| DROP 1 (Ad Tes.) 
DIMX et DIMY sont deux constantes préalablement définies qui don- | THEN 
nent les dimensions du tableau. ” THEN 
Pour l'affichage, on écrira: | SWAP C! ( Rangement nouvelle 
val ) 
AFFICHAGE ) sal 
HOMEUP ( Efface l'écran ) du 
DIMY O DO 


DIMX O DO 


UNIVERS Ca@ Le cœur de l’algorithme réside dans le mot GENERER. On peut le 
pu @ 


décomposer en plusieurs blocs fonctionnels : 
1 — Balayer tous les éléments du tableau. 


| 2 — Pour chaque élément, isoler le sous-tableau (3+3) qui l’entoure, 
ELSE | en tenant compte de la présence éventuelle des bords du tableau. 


CPS | 3 — Totaliser les éléments présents dans’ ce sous-tableau à la généra- 
THEN | tion N, dont la valeur est 1, 3 ou 5, c’est-à-dire dont le bit de poids faible est 
| positionné. | 


4 — Retirer éventuellement 1 si l’élément en cours d'examen existe à 
la génération N. 


5 — Encoder en conséquence la valeur de l’élément considéré. AT À 


A +0 


AT 


TONER 
DIMY O DO 
DIMX O DO 
O ( Compteur voisins |} 
J 2+ DIMY MIN 
| 1 — O MAX 
DO 
J 2+ DIMX MIN 
| 1 — O MAX 
DO 
| J UNIVERS @ 
1 AND + 
LOOP 
LOOP 
| J UNIVERS @& 
1 AND ( Nbvois 
Present ——— ) 
SWAP OVER — 
VERIFIER ( Encodage de 
l'avenir ) 
| J UNIVERS ! 
LOOP 
LOOP 


Présent est un booléen indiquant si l'élément examiné est habité ou non 
à la génération N. Il est déterminant pour l’avenir de la cellule considérée. 


VERIFIER comprend tout l’encodage de l’élément en fonction du 


nombre de voisins, et de l’état vide ou occupé de la cellule à la génération N. 


. VER \ ctat Nbvois ——— } 

DUP 3 — ( État Nbvoisb——— ) 
IF 

DROP 2+ ( État+2——— ) 
ELSE 

2 = O—- ( État État#2 ——- ) 

IF 

4 + 

THEN 

THEN 


La définition ci-dessus résulte du tableau récapitulatif suivant : 


N N + I 


État—État+2=—3 État—État+4—5 


(survie) 
État=État+2=2 État—État+4—4 
(naissance) (inchangé) 


PROBLÈME 3 — FONCTIONS TRIGONOMÉTRIQUES 


État—État+4=5 
(mort par 


isolement) 


Le problème consiste à construire les fonctions trigonomé- 
triques classiques, en virgule fixe, à savoir SINUS et COSINUS. 


Ces fonctions étant continues, bornées, et périodiques, il est très facile 
de générer une table des valeurs de ces fonctions. 


Le pas sera décidé à l’avance en fonction de la précision accordée au 
Calcul, c’est-à-dire de la position de la virgule. 


Nous avons choisi arbitrairement une précision de 4 chiffres. AT 3 


_…. defi.....n1s s_.. lors 


: TABLE 


<BUILDS 


O DO , LOOP 


DOES> 


SWAP 2x +@ 


10000 9998 
9848 9816 
9397 9336 
8600 8572 
7660 7547 
6428 6293 
5000 4848 
3420 3256 
1736 1564 
0000 


91 TABLE SINTABLE 


Le mot TABLE crée et remplit effectivement une table dont le nombre 


9994 
9781 
9272 
8480 
7431 
6157 
4695 
3090 
1392 


d'entrées est paramétré. 


Ici, SINTARBLE contient 91 valeurs de la table des sinus, entre 0 et 


90 degrés. 


Pour pouvoir accéder à cette table pour toutes les valeurs d’angles pos- 
sibles, il convient de prendre quelques précautions : 


: S180 


DUP 90 > 


IF 


9986 
9744 
9205 
8387 
7314 
6018 
4540 
2924 
1249 


180 SWAP — 


THEN 


SINTABLE 


[FetumJok 


A +4 


9976 
9703 
9135 
8290 
7193 
5878 
4384 
2756 
1045 


édi: __. 


9962 
9659 
9063 
8192 
7071 
5736 
4226 
2588 
0872 


[Return] OK 


9945 


9613 


8988 
8090 
6947 
5592 
4067 
2419 
0698 


9925 9903 


9563 
8910 
7986 
6820 
5446 
3907 
2250 
0523 


9511 
8829 
7880 
6691 
5299 
3746 
2079 
0349 


9877 
9455 
8746 
7771 
6561 
5150 
3584 
1908 
0175 


: SIN ( arg… sinus(arg) ) 
360 MOD 
DUP O< 
IF 360 + THEN 
DUP 180 > 
IF 180 — S180 MINUS ELSE S180 THEN 


: [Retur]Ok 
: COS 90 + SIN : Return ok 


On peut maintenant écrire quelques outils utilisant des fonctions 
trigonométriques : 


: ERRMATH .” VALEUR TROP GRANDE” QUIT : |Return|OK 


: TANG ( arg … tg{arg) }) 
DUP SIN 
SWAP COS 
DUP IF / ELSE DROP ERRMATH THEN 

; [Return] OK 


PROBLÈME 4 — LES TOURS DE HANOI 


Problème frivole, mais digne d'intérêt. 


Les prêtres d’une secte orientale ont à résoudre le problème 
suivant : 


64disques sont disposés les uns sur les autres, sur un socle 
” À ”, les diamètres des disques devant toujours aller décrois- 


sants. Le problème consiste à transférer tous ces disques vers 
un socle ”C”, en utilisant un socle intermédiaire ” B”. 


Les seuls mouvements autorisés sont ceux qui consistent à 
prendre un disque au sommet d’une des piles, et à le poser 
soit sur un disque plus grand, soit sur un socle vide. 


Selon la légende, la fin du monde surviendra à l’instant où les moines 
auront terminé leur labeur. 


Pour aider les moines à parvenir à leur fin, nous allons leur éditer un 
listing de la suite des mouvements de disques à opérer. A5 


417€ 


ù PANR] Anna Ati 1 = - 12-2: he . . 
Tant le nrohlème rrsiste caf una thm LIV4 Ates €S luuus PRir ARE preparent 1a pile pour l’appel suivant : 
les etapes du transfert. 


: EDITE 
Il faut savoir que cet exercice cache un prototype d’une classe impor- L : 
tante d’algorithmes récursifs, car si nous essayons la démarche qui consiste 3SDUP DROP SWAP CR. 7 VERS”. 
à toujours se ramener au problème précédent, nous pouvons écrire : : [Return] OK 
Déplacer 64 disques de ” A” vers ” C”, c’est: 
Débiacér Cadisqueside Aves Et : PREPARE-—ALLER ( dan..dandin-1) 
IMPRIMER "A" vers "C” 3DUP ( dandan. ) 
Déplacer 63 disques de ‘B” vers ROT ROT OVER + (danndad…) 
implifier, jusqu’à ce qu’il n° 
| De proche en proche, le problème va se simplifier Jusqu'à ce q y 6 SWAP — ROT 1 — (dandi n-1…) 
ait plus de plateaux sur un des socles, auquel cas, le problème ” Déplacer 0 
plateau” sera instantanément résolu. IRetum]OKk 
On peut donc écrire une définition complète de ” Déplacer” : . PREPARE-RETOUR 'dénicdanta 441 
Déplacer N disques de DEPART vers ARRIVEE: 3 DUP ({ dandan.… ) 
SWAP ROT OVER + ({ dannada.… ) 


SI N4O ALORS 
Déplacer N—1 disques de DEPART vers INTERMEDIAIRE 
IMPRIMER DEPART “VERS” ARRIVEE 
Déplacer N—1 disques de INTERMEDIAIRE vers ARRIVEE 


6 SWAP — SWAP ROT 1-{(dania n—-1.…) 
: [ReturnJOK 


Pour paramétrer suffisamment le problème, on numérotera les socles Sp Coton io od) 


1, 2 et 3. 


| DUP >R ROT 
A tout instant, on profite de la relation: 
DUP >R ROT 
ARRIVEE = 6 
DEPART + INTERMEDIAIRE + R En. 


on va donc écrire en FORTH: R> R> SWAP R> 


: HANOI ( dan. ) : [Return|OK 
SMUDGE 
DUP 
IF ( dan.) 
PREPARE-—ALLER ({ dan din-1.…) PROBLÈME 5 — LES HUITS REINES 
HANOI ({ dan.) 
Autre problème frivole, mais moins immédiat que le 
EDITE ee 
précédent. 
PREPARE-RETOUR (dania n-1.…) | | | _. 
. Le but est de construire un mot qui affichera à l’écran de 
HANOI ( dan.) -votre terminal une combinaison possible de huit reines sur un échi- 
THEN quier, sans qu'aucune d'elles ne soit en prise. AT" 
DROP DROP DROP Si vous aviez à le faire réellement, vous auriez sans doute le réflexe de 
AT6 SMUDGE 


ss | DA iv PONT 


rails par es C_ -_lonr..…, -n fa... des ..,lacer....5 rails par 


On peut formaliser cette solution de la façon suivante: 
Pour placer N reines sur l’échiquier, (8—N sont déjà posées). 


Trouver la première ligne disponible pour une reine. 
Trouver la première colonne disponible pour une reine. 
Placer la reine à cet emplacement. 

Placer N—1 reines sur l’échiquier. 


Il faudra bien entendu traiter le cas trivial, où il ne reste plus de reines 
à placer. 
Le mot FORTH qui va résoudre le problème va s’écrire de façon tres 
simple : 
. HUIT-REINES ( … ) 
INITIALISER 
8 PLACER 
L Return OK 
Le mot INITIALISER va mettre à zéro la variable qui va garder à tout 
instant la carte des emplacements disponibles. 


: INITIALISER ( … ) 


8 ODO 
8 ODO 
O | J SET 
LOOP 
LOOP 


: [Return|Ok 


Les valeurs vont être stockées dans un tableau ECHIQUIER, et on y 
accèdera grâce aux mots SET et TEST. 


O VARIABLE ECHIQUIER 64 ALLOT |Return|, OK 


: SET 8 * + ECHIQUIER + Cl;{Return) OK ( val collig.… | 


. TEST 2 DUP 8 « + ECHIQUIER + Ce : [Return] OK( collig.… 
… col lig val } 


Les fonctions de ”’ Trouver ligne” et ” Trouver colonne” sont assez 
A9 semblables, mais seront différenciées pour plus de clarté. 


: | ER: NE. .ligr.. 


0 O ( OO. }) 

BEGIN ( Oligne… ) 

TEST ( O ligne … O ligne flag }) 
WHILE { Oligne… }) 

1 + ( Oligne+1… ) 
REPEAT 
SWAP DROP ( ligne. ) 


: [Return]Ok 


: TROUVER—-COLONNE  ( … col ) 


0 O ( O0.) 
BEGIN ( colO…. }) 
SWAP TEST ( O colonne … O colonne flag ) 
WHILE ( O colonne … }) 
1 + ( Ocolonne+1… ) 
SWAP ( colonne+1 O0. ) 
REPEAT 
DROP ({ col. } 


: [Return] OK 


Il reste donc à écrire un mot qui va mettre à jour l’échiquier après 
avoir positionné une reine. 


ANT 


: DEI—DIAG Fig Fr) 
JPD À 9. 


2DUP SWAP. ( colligligcol… ) 
SET—COL — DUP 9 + SWaAP ( col liglig-COL+9 lig-col … ) 
SET—UG DO { collig… } 
SET—DIAG 2DUP SWAP — | SWAP | + ( colligll+lig-col… ) 
DROP DROP 1 ROT ROT ( col lig 1 II+lig-col… ) 
: [ReturnJOK SET ({ collig… } | 
Avec : LOOP 
2DUP 1 + + 0 ( col lig col+lig+1 0 … ) 
: SET-COL { collig… collig } DO ( collig… ) 
__. éco. à 2DUP + SWAP OVER ( colligicol+lig-l… | 
8 0 DO 1 ROT ROT ( collig… }) 
O OVER | SET Li 
LOOP UE 
SWAP { collig… } 


[Reur]oK 2K 


De même pour: On peut donc maintenant très facilement écrire le mot PLACER : 


.. { collig…collig } die ( N…. } 
8 O DO ( collig… } LES. 
1OVER | SWAP SET ({ col lig… | TROUVER-—COLONNE ( Ncol.…) 
LOOP TROUVER-—LIGNE ( Ncollig… } 
; [Return |OK UPDATE { Nocollig…. ) 
AFFICHE ( N… ) 
1 = ( N—1.. ) 
PLACER Ü NT: | 
ELSE 
DROP EFFACE 
THEN 
Fur 181 


A%0 


104 


ATTCHE © TFF2TT sont ‘ time  uvc end! cha  : 
visualisation des résultats. 


Nous vous proposons un affichage très simplifié : 


: AFFICHE LIGNE: . COLONNE" .;[Return] OK 


: EFFACE 
10 EMIT 10 EMIT 
TERMINE” 


( sauter deux lignes ) 


KEY DROP 


|Return] OK 


PROBLEME 6 — LE CALENDRIER GRÉGORIEN 
PERPÉTUEL 


Le problème consiste à trouver, étant donnée une date, le jour 
de la semaine correspondant. 


Une analyse détaillée du problème a conduit à l’élaboration des trois 
formules suivantes, valables seulement à partir de l’an de grâce 1582. 


Pour les mois de janvier à février: 


Facteur = 365 x Année 
+ Jour 
+ 31 x ( Mois —1 }) 
— INT ( 3/4 ( INT ( Année / 100 }) + 1 }) }) 
+ INT ( ( Année — 1 )/ 4 ) 


Pour les mois de mars à décembre : 


Facteur — 365 * Année 
+ Jour 
+ 31 x ( Mois — 1 ) 
— INT ( 3/4 ( INT ( Année / 100 ) +1 )) 
— INT ( O.4 x Mois + 2.3 ) 
+ INT ( Année / 4 ) 


La formule finale est alors : 
N° Jour dans la semaine = Facteur MOD 7 


( Le samedi étant le jour de N°0. }) 


ART 


OJN TFésssu QUE Que veUlE uuv petite partie des ueux fuiinules auiere, d’ou 
les deux mots suivants: 


: JANVIER/FEVRIER Année Mois —-——n ) 
DROP 1 — ( Année—1 ——-— |) 


hs, 


4 / ( INT((Année—1)/4) ——— ) 

: [Return] OK 

: MARS/DECEMBRE ( Année Mois ———n ) 
4 « 23 + 10 /( Année INT(O.4+xMois+2.3)—-—-— ) 
SWAP 4 / (_INT(O.4xMois+2.3) INT(Année/4) ——— } 
SWAP — 


: [Return] OK 


Voici maintenant un mot qui affiche le jour de la semaine en fonction 
de son n°. 


: EDITE ( N°Jour——— ) 
DUP 0— 
IF .”" SAMEDI” 
ELSE 
DUP 1 = 
IF." DIMANCHE” 
ELSE 
DUP 2 = 
[IF 7" LUNDI” 
ELSE 
DUP 3 — 
[IF ." MARDI” 
ELSE 
DUP 4 — 
IF ."" MERCREDI" 
ELSE 
DUPE= 
IF ." JEUDI” 
ELSE 
DUP 6 = 
IF .” VENDREDI" 
THEN THEN THEN THEN THEN THEN THEN 
DROP 


CR A# 3 
[Return]OK 


At 


Crirarns l'ésuirats iiuui 116didu ©» etant cui UOUbDiE IU1QgUEUI, HOUS ani0rs 
utiliser dans la définition des mots qui suivent des opérateurs mixtes. 


Nous considérons que la date sera accessible sur la pile de donnée, 
sous la forme: 


( Jour Mois Année ——— ) 


: JOUR (JMA——— ) 
DUP 365 Mx ({JMAd—-—— }) 
>R DR ROT (MAJ——— ) 
O R> R> D+ ({MAd——— ) 
2SWAP 2DUP >R>R( dM'A——— ) 
100 / 1+ 3 4 x/ (dMn——— 
SWAP 1 — 31 x (dnn——— ) 
SWAP — O D+ ({ d——— ) 

R> R> ({ dMA——— ) 
SWAP DUP 3< ({ dAMflag——— ) 
IF 

JANVIER/FEVRIER 
ELSE 

MARS/DECEMBRE 
THEN ({ dn——— ) 
O D+ ( Facteur ——— ) 
7 MOD { N°Jour ——— ) 
EDITE ( —— ) 


‘[Return)OKk 
Vous pouvez maintenant taper par exemple : 


7 12 1982 JOUR|Return] MARDI 
OK 


PROBLÈME 7 — FICHIERS 


Le but de ce problème est de pouvoir créer et se 


servir d’un 
fichier. | 


Les informations que nous utiliserons serons du type: Nom 
Prénom Téléphone Société. 


Chacune de ces séquences sera appelée enregistrement, et 
chaque classe d’information dans un enregistrement un champ. 


Nous donnerons les trois mots qui permettront les manipula- 
tions de base: écriture, modification et lecture. Comme nous Île 
verrons d’autres mots pourront être très simplement écrits. 


Nous lONS uuuSeT ia sirUCtuic de meuivire Ue inasse rournie par 
FORTH, principalement le mot BLOCK. 


Commençons par définir quatre variables qui donneront les caractéris- 
tiques du fichier : 


— LE qui est la longueur d’un enregistrement. Nous prendrons dans 
cet exemple 64 caractères. 


— PB qui est le numéro du premier bloc de la mémoire de masse à 
servir pour le fichier. 


— EB qui est le nombre d’enregistrements contenus dans un bloc, 
c’est-à-dire le nombre d’octets par bloc divisé par la longueur d’un enregis- 
trement (LE). 


— CM qui est le nombre d’enregistrements maximum du fichier : il est 
naturel de choisir un multiple de EB. 


Les blocs constituant le fichier sont ceux qui suivent séquentiellement 
PB. Il est donc important de bien choisir PB, c’est-a-dire un numéro de bloc 
correspondant bien à une série de blocs libres. 


Nous aurons également besoin de cinq variables : 


— ENRG qui sera le pointeur d’enregistrement, c’est-à-dire le nume- 
ro de l’enregistrement à traiter. 


— RECH qui contiendra l’adresse d’une table de référence pour une 
recherche. 


— RECHI qui servira pour une exécution vectorisée. 
— RECH2 qui servira pour une exécution vectorisée. 


— DEB qui sera le numéro de l’enregistrement à partir duquel une 
recherche sera effectuée. 


Nous aurons aussi besoin de quatre tablés à deux éléments, chacune 
correspondant à un champ et contenant la longueur du champ ainsi que sa 
position dans l’enregistrement (tabulation). Pour ce faire nous avons besoin 
du mot de définition suivant : 

: DEF 

<BUILDS 


DOES> 


: [Return |OK 
A8 9 


Les tables seront donc définies de la façon suivante: 


lt sIDEF.-28M 

12 16 DEF PRENOM 
13 28 DEF TELEPHONE 
23 41 DEF SOCIETE 


Dans un enregistrement le nombre maximum de caractères pour le 
nom est de 16, pour le prénom de 12, pour le téléphone de 13 et pour le nom 


de la société de 23. 


Tout d’abord écrivons un mot DEBUT qui initialise à zéro le numéro 
d'enregistrement et un mot SUITE qui l’incrémente de un: 


: DEBUT 
O ENRG ! 
Return OK 
: SUITE 
1 ENRG +! 
: Return] OK 
Nous allons maintenant écrire un mot ENRG—>ADR qui à partir du 
contenu de ENRG va calculer dans quel bloc est situé cet enregistrement, 
charger ce bloc en mémoire s’il n’y est déjà et laisser sur la pile l'adresse 
mémoire à partir de laquelle est situé cet enregistrement. 
: ENRG—>ADR ( ——— Adr) 
ENRGa« EB /MOD (Incr N°bloc ——— } 
PB 4 x + BLOCK (IncrAdr——— ) 


SWAP LE # + ( Adr——— ) 


OK 
L'étape suivante est d’écrire un mot qui ayant Sur la pile l’adresse de la 
table de l’un des champs (NOM,PRENOM, TELEPHONE, SOCIETE), 
laisse sur la pile l’adresse de ce champ dans l’enregistrement pointé (par 
ENRG) ainsi que le nombre de caractères qui le constituent (16,12.13.23). 


: ?CHAMP (Champ ——— Adr Long)* 
DUPe SWAP 2+@ SWAP. (Long Tab —— 
ENRG—>ADR © (LongTab Adr ——-) 
+. SWAP (Adr Long ———) 


AQ6 :Reumok 


Il est maintenant trés simple d’écrire un mot .CHAMP qui ayant 
l’adresse du champ sur la pile affichera le contenu du champ de l’enregis- 
trement pointé par ENRG: 


: .CHAMP (Champ ———-) 
?2CHAMP (Adr Long ———) 
TYPE 

; [Return|OK 


De même il est très simple d’écrire le mot CHAMP! qui ayant 
l’adresse du champ sur la pile enregistrera le texte tapé dans le champ choisi 
de l’enregistrement pointé par ENRG: 


: CHAMP! (Champ ———) 
44 TEXT PAD SWAP (AdrPAD Champ —-) 


?CHAMP CMOVE UPDATE 


[Retur]ok 


Le lecteur remarquera que 44 est le code ASCII de la virgule qui a été 
choisie comme séparateur. 


Pour pouvoir écrire simplement dans le fichier il est nécessaire d’avoir 
un mot qui recherche le premier enregistrement libre. Ce mot choisira 
comme enregistrement libre le premier contenant un blanc comme premier 
caractère. 


De même il faudra écrire un mot qui soit capable de retrouver l’enre- 
gistrement dont le champ spécifié contient une certaine information fournie 
par l'utilisateur. 


Ces deux mots contiennent une partie commune, ce qui les différencie 
est le type de comparaison à effectuer. Nous utiliserons donc l’exécution 
vectorisée avec le mot RECHERCHE. 


À 87 


: REecnERCnE 
1 CM DEB @ DO 
| ENRG ! 
RECH1 @ EXECUTE 
IF O= LEAVE THEN 
LOOP 


[eurnJok 


Fe) 
ie 


(1 Flag ———) 
(1——— ) 


Écrivons maintenant le mot LIBRE qui recherche le premier enregis- 


trement vide et qui met son numéro dans ENRG: 


. LIBRE! { ——— Flag) 
ENRG—>ADR Ca@& 32— (Flag——— ) 
; [Return OK 


: PLEIN (ue 7 
." FICHIER PLEIN” 

Return OK 

: LIBRE ===") 
 LIBRET 2 — RECHI1 ! 
PLEIN 2 — RECHD ! 
O DEB ! RECHERCHE 


: [Return]Ok 


. CHERCH1 (| ——— Flag) 
PAD RECH @ ?CHAMP  (Adr Long ———) 
SWAP —TEXT O— (Flag ———) 
: [Return] OK 
: MANQUE ( ——— }) 
" INEXISTANT ” 
| OK 
: CHERCH  _ 
[COMPILE] ‘ 2+ RECH ! 
CHERCH1 2 — RECHI ! 
MANQUE 2 — RECH2 ! 


O DEB ! 44 TEXT 
RECHERCHE 
; (Return) OK 


Le mot CHERCH s'utilise de la façon suivante: 


CHERCH CHAMP XXXXX XX X 


où CHAMP est NOM ou PRENOM ou TELEPHONE ou SOCIETE 
et XXODOOOOOOOOXXX est le texte recherché. 


Si votre FORTH ne dispose pas des mots TEXT et -TEXT voici leur 


définition : 


Il est à noter que la recherche d’un enregistrement libre débute ici au 
numéro 0 (0 DEB!). Il est tout à fait possible de rajouter un mot qui permet- 
tra de ne pas balayer tout le fichier à chaque fois : de nombreux algorithmes 
existent. Pour des fichiers de petite taille le mot défini ci-dessus présente 
l'avantage d’utiliser des enregistrements effacés. 


Le mot CHERCH qui recherche un enregistrement dont le champ spé- 
cifié correspond au texte voulu s’écrit: 


AL 


: TEXT PAD 72 32 FILL WORD HERE COUNT PAD SWAP CMOVE : 
: —TEXT 2DUP + SWAP DO DROP 2+ DUP 2 — @ 1@ — DUP IF DUP 
ABS / LEAVE THEN 2 +LOOP SWAP DROP 


Nous pouvons maintenant definir les mots dont se servira l’utilisateur : 


AF9 


: ECRIT 
LIBRE 
NOM CHAMP! 
PRENOM CHAMP 
TELEPHONE CHAMP! 
SOCIETE CHAMP! 
FLUSH 

| [Return OK 


Pour enregistrer par exemple Dupont Louis 9999999 Forth, il faudra 
taper : 
ECRIT DUPONT.LOUIS,9999999,FORTH |Return)OK 


: IMPRESSION 
NOM .CHAMP 
PRENOM .CHAMP 
TELEPHONE . CHAMP 
SOCIETE .CHAMP 


: [Returm]Ok 


Ce mot permet d’afficher le contenu de l’enregistrement pointé par 
ENRG. 


: CHERCHE 
CHERCH IMPRESSION 


| IRetu rn|OK 


Ce mot s'utilise de la même façon que CHERCH. 
. AUTRE 

SUITE ENRG @ DEB ! 

RECHERCHE IMPRESSION 


: [Return OK 


Après avoir effectué une première recherche par l'intermédiaire du mot 
CHERCHE, ce mot permet de voir s’il existe dans la suite du fichier un 


À 30 


nutre EuicgiStreunvcin qui concorde. Son utilisation peut-être répétée jusqu’à 
ce que le fichier ait été entièrement parcouru. Il est d’ailleurs trés simple 
d'écrire un mot qui fasse une recherche de tous les correspondants quelque- 
soit leur nombre en utilisant CHERCHE puis AUTRE dans une structure 
BEGIN... WHILE..REPEAT. 


: CHANGE 
[COMPILE] 
CHAMP! 


[Feumok 


Ce mot permet, une fois positionné sur le bon enregistrement, de modi- 
fier le contenu de l’un des champs de la façon suivante: 


CHANGE CHAMP XXXXXX |Return|OK 
où CHAMP est NOM ou PRENOM ou TELEPHONE ou SOCIETE 
et XXXXXX est le nouveau texte. 
: SUPPRIME 
ENRG—>ADR LE 32 FILL 
UPDATE FLUSH 


Return] ok 


Ce mot permet, une fois positionné sur un enregistrement, de le suppri- 
mer en tapant: 


SUPPRIME !Return OK 


Il est bien sûr possible de modifier les valeurs des différentes cons- 
tantes choisies dans cet exemple. Les valeurs que nous avons choisies pré- 
sentent l’avantage de fournir un listing directement exploitable simplement 
en tapant LIST des blocs qui constituent le fichier. 


D’autres mots utilisateur peuvent être définis simplement à partir de 
ceux que nous avons donnés, cela dépend principalement du type d’applica- 
tion envisagée. 


A9 À 
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Le problème consiste à calculer la transformée de Fourier 
discrète d’un signal discret x(n). La formule de base est la 
suivante : 


N—1I 
X(k}=SOMME [x(n)*exp(—2x*pixj#k#n/N)] 
n=0 


Ceci pour k=0,...,N—1 


Nous allons calculer cette transformation à l’aide de l’algo- 
rithme Papillon. Ce type d’algorithme est plus couramment appelé 
F.F.T. (Fast Fourier Transform). 


Le principe de cet algorithme est de décomposer la somme à calculer 
en deux sommes, la première regroupant les termes d'indices pairs et la 
seconde les termes d’indices impairs : 


(N/2)—1 
X(k}= SOMME [x(2*i)xexp(—4xpixjxixk/N)] 
i=0 
(N/2)—1 
Ra exp(—pixjsk/N) «x SOMME [x((2»i)+1)*exp(—4xpixjsixk/N)] 
i=0 


Le simple fait de réécrire cette formule permet de diminuer le nombre 
d'opérations à effectuer : 


Pour N=8 nous avons 80 multiplications au lieu de 128 et 64 addi- 
tions au lieu de 112. 


En répétant cette opération une autre fois, il reste pour N=—8 
64 multiplications et 48 additions. 


Cette dichotomie sera donc répétée jusqu’à ce que l’on arrive à des 
termes en somme de deux éléments [cf note]. 


Le but de ce type d’algorithme est bien sûr de limiter le temps de cal- 
cul. Considérant que plusieurs calculs de F.F.T. sont généralement effectués 
à la suite nous allons remplacer le réarrangement des éléments par une indi- 
rection. Ceci veut dire que nous allons construire un vecteur contenant les 
indices des éléments ( x(n) } et que nous allons, lors d’une étape d’initialisa- 
tion, calculer les nouveaux indices. 


Voir Le filtrage numerique Walid P. SALMAN — Marc S. SOLOTAREFF. Éditions EYROLLES 1982. 


AGT 


……nñnplé. ..=8 


Indice Indice après 
initial réarangement 


O (@) 


1 à 


2 


Il est important de noter que le réarrangement des indices revient à 
faire du binaire réfléchi. 


Exemple : 
011 (—3) devient 110 (—6) 
Dans la suite nous considérerons que N est une puissance de 2 : 


N=—2puissM. Nous utiliserons donc une variable qui contiendra la valeur de 
M et lorsque nécessaire calculerons N à l’aide du mot 2PUISS. 


A9? 


A1 VAN'ANDLE |" MT ON 


: 2PUISS (N ——— 2puissN) 
DUP IF (N——— ) 
1 SWAP O0 DO 
2 * 
LOOP 
ELSE 
DROP 1 
THEN 


: [Return ]oK 


Définissons un mot de définition d’un vecteur dont la dimension (en 
nombre d’octets) est placée sur la pile. 


: DEFVEC1 (n——— ) 
<BUILDS 
ALLOT 
DOES> 


[Retro 


Definissons maintenant le vecteur d’indices INDICE: 


N DEFVEC1 INDICE [Return]OK 


L'étape qui suit est de définir un mot REFL qui calcule le binaire réflé- 
ch1 d’un nombre. 


Aît 


| AN. bits  -N' 
O SWAP | _  (NONb-bits -——) 


0 DO | NO 
OVER 1 2PUISS AND (N Flag ——) 
IF 
R> 1 SWAP >R 
| — 1 — 2PUISS OR 
THEN 

LOOP 

SWAP  DROP 


: [Return]OKk 


Nous pouvons maintenant définir le mot INIT—-INDICE qui va écrire 
dans le tableau d’indirection INDICE les binaires réfléchis des indices de 
départ. 


: INIT—INDICE 
M @ 2PUISS 0 DO 
| DUP REFL SWAP 
INDICE C! 
LOOP 
; (Return|OK 
Nous allons maintenant nous intéresser aux vecteurs qui vont repré- 
senter la transformée de Fourier discrète. 
Les résultats sont complexes en raison des exponentielles complexes 
qui apparaissent dans la formule. Nous décomposerons ces exponentielles et 
X(k) en partie réelle et partie imaginaire. 


Nous allons donc définir deux vecteurs de dimension N. Pour ce faire 
utilisons le mot de définition suivant: 


: DEFVEC2 (N ——— ) 
<BUILDS | 
2 » ALLOT 
DOES> 
SWAP 2 « + 


[Return JOK ” 3 


Rare Cont"sson EX R = ter ">" et 7" © -rtie ina ‘* là 
façon suivante: | 


M @ 2PUISS DEFVEC2 XR|Return|OK 


M & 2PUISS DEFVEC2 XI|Return|OK 


Pour pouvoir écrire et lire les éléments de ces vecteurs nous définissons 
les mots suivants: 


: CSTORE (R Im Indice ———) 
SWAP OVER (R Indice Im Indice ———) 
XI! (R Indice ———) 
XR ! (——— } 
 [Return]Ok 
: CGET (Indice ——— R Im) 
INDICE @ DUP {ll ——-) 
XR @ (l'R ———) 
SWAP (Bee 
XI @ (R Im ———) 
; (Return|OK 


Ayant à utiliser un pas de boucle variable nous définirons: 


VARIABLE LE VARIABLE LE1 


Nous aurons également besoin de deux variables complexes U et W: 


1 O COMPLEX U 
1 O COMPLEX W 


La lecture et l'écriture de ces variables se feront par l’intermédiaire des 
mots X @ et X! définis dans le problème 1. 


Nous supposerons que le signal x(n) dont nous cherchons à calculer la 
transformée de Fourier discrète a ses valeurs dans le vecteur XR. 


AAC 


Le] 


. FFT" 


M @ 2PUISS 1+ SWAP DO 
| LET @ + DUP R 
CGETU X @ Cx 


| CGET 2OVER C— R> CSTORE 


| CGET C+ |! CSTORE 


LE @ +LOOP 
: [Return]OK 
FFT 
M@ 1+1 DO 
| 2PUISS DUP LE ! 
2} LE‘ 
1 OU X! 
180 LE1 @ / MINUS DUP 
COS SWAP SIN W XI 
LE1 1+1D0O 
| FFT1 
UX@WX& Cx 
U X! 
LOOP 
LOOP 
; [Return| OK 
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AA 


AnwNeXE | 


LISTE DES MOTS 
COMPOSANT LE FORTH-79 


(udi ——— ud2) 


4> (d ——— adr n) 


#$S | (ud ——— 0 0) 


Écrit n à l’adresse adr 
” Store ” 


Génère à partir d’un nombre non- 
signé double longueur un caractère 
ASCII qui est placé dans une chaïne de 
sortie. Le résultat ud2 est le quotient de 
la division de ud2 par BASE. 

Ce mot est situe entre <4 et #2. 
” Sharp 39 . 


Termine le formattage pour une édi- 
tion. Supprime d et place sur la pile 
l’adresse du texte à éditer, ainsi que le 
nombre de caractères dans l’ordre voulu 
pour TYPE. 

7” Sharp-greater ” 


Convertit chaque chiffre d’un nombre 
double longueur (32 bits) non-signé en 
un caractere qui est intégré dans le texte 
à éditer. 

Si le nombre est nul, un seul zéro est 
écrit. 

Ce mot n’est utilisable qu'entre les 
mots <# et #2. 

” Sharp-S” 


Lorsque l’interpréteur est en mode 
exécution, ce mot place sur la pile le Pfa 
du mot qui suit dans l'input stream 
(MOT). 

Lorsque l’interpréteur est en mode 
compilation, ce mot charge à la suite du 
dictionnaire le Pfa du mot qui suit dans 
l’input stream. L’interpréteur considère 
en fait ce Pfa comme un nombre (LITE- 
RAL) situé dans la définition. 

”Tick” 


2199 


Ce mut indique que le sexie qui suit 
est du commentaire, délimité par: ). 
C’est un mot qui doit donc être encadré 
par deux séparateurs. 

Ce mot peut-être utilisé de la même 
façon que l’interpréteur soit en mode 
exécution ou compilation. 

” Paren” 


C—). 


a 


Effectue la multiplication de nl par 
n2 et laisse le résultat n3 sur la pile. 
”Times ” 


(nl n2 ——— n3) 


(nl n2 n3 ——-— nd) 


Multiplication nl par n2, divise le 
résultat par n3 et laisse le résultat final 
nd sur la pile. 

Le résultat intermédiaire (nl*n2) est 
en double longueur (32 bits), ce qui per- 
met d’obtenir une plus grande précision 
que la séquence: nl n2 « n3 / 

” Times-divide” 


# 
nee 


Multiplie n1 par n2, divise le résultat 
en double longueur par n3 et place le 
reste n4 de la division puis le quotient n$ 
sur la pile. 

”Times-divide-mod” 


*/MOD (nl n2 n3 ——— 
n4 n$) 


(nl n2 —— n3) 


(n adr ——— ) 


Effectue l’addition de nl et n2 puis 
place le résultat n3 sur la pile. 
"Plus ” 


Ajoute n à la valeur sur 16 bits située 
à l’adresse adr et mémorise le résultat à 
cette même adresse. 

” Plus-store ” 


E 


+LOOP Ajoute n à l'indice de boucle et com- 
pare ce nouvel indice à la limite de la 
boucle. 

Renvoie l’exécution au DO corres- 
pondant tant que l’indice calculé est 
strictement inférieur à la limite. Sinon 
termine la boucle en éliminant les para- 
mètres sur la Return Stack et en poursui- 
vant l’exécution. 


”Plus-loop” 


Réserve deux octets à la suite du dic- 
tionnaire et y place n. 
” Comma” 


Soustrait n2 de nl et laisse le résultat 
n3 sur la pile. 
* Minus ” 


(nl n2 ——— n3) 


LT 


(adr ni ——-— adr n2) Examine dans une chaïne de n1 carac- 
tères commençant en mémoire à 
l’adresse adr, à partir de quel caractère 
la chaine ne contient plus que des 
blancs. 

Les caractères entre l’adresse adr+n2 
et l’adresse adr+n1l—1 sont tous des 
blancs. 


*Dash-trailing” 


—TRAILING 


Convertit le nombre n dans la base 
courante (BASE) et affiche la valeur, 
éventuellement avec un signe moins, 
ainsi qu’un blanc de séparation à la 
suite. 
”Dot LE 
texte” Affiche le texte qui suit ce mot. La fin 
de texte est signalée par le caractère ”. 
La longueur du texte doit être infé- 
rieure à la dimension du buffer de sortie. 
” Dot-—-quote” 


(nl n2 ——-— n3) 


Divise nl par n2 et laisse le quotient 
n3 sur la pile : c’est une division entière. 
”Divide” 


/MOD (nl n2 ——- n3 nd) Divise nl par n2 et laisse le reste n3 


puis le quotient n4 sur la pile. 
” Divide—-mod” 


Compare n à zéro et laisse un flag sur 
la pile: 


(n ——— flag) 


flag=—1 si n<0 
flag=0 sinon 
”zeéro-less ” 


Compare n à zéro et laisse un flag sur 
la pile: 
flag=—1 si n—0 
flag=—0 sinon 
”zéro—equal ” 


/ 
O< 
0> 


(n ——— flag) 


Compare n à zéro et laisse un flag sur 
la pile: 
flag=1 si n>0 
flag=0 sinon 
”zéro—greater ” 


Incrémente de un le sommet de la pile. 
?One—-plus ” 


1+ (n ——— n+1) 


Lu L L 


Décrémente de un le sommet de la 
pile. 
” One—minus”” 


ZA 


2+ UF 2) 


2 (n ——— n—2) 


MOT définition 


< (ni n2 —— flag) 


{ni n2 —— flag) 


70% 


Ds es 


incremente de deux le sommet de la 
pile. 
”Two-plus ” 


Décrémente de deux le sommet de la 
pile. 
”Two-minus ” 


Le vocabulaire courant (CURRENT) 
devient aussi le vocabulaire de contexte 
(CONTEXT). Une tête de chaîne pour 
MOT est alors créée dans ce vocabu- 
laire, et l’interpréteur passe en mode 
compilation. 

Les mots qui suivent dans l'input 
stream et qui sont immédiats sont exécu- 
tés, le Cfa des autres est placé à la suite 
du dictionnaire. Si l’un de ces mots n'est 
pas trouvé par l’interpréteur dans les 
vocabulaires de contexte et FORTH, 
celui-ci teste si le nom peut correspondre 
à un nombre dans la base courante: si 
oui il charge cette valeur comme un 
nombre à la suite du dictionnaire. 

Sinon un message d’erreur est affiché 
et la compilation est interrompue. 

Colon” 


Indique la fin de définition d’un mot. 
L'interpréteur repasse en mode exécu- 
tion. 
” Semi-colon ” 
Compare nl à n2 et laisse un flag sur 
la pile : 
flag=1 si ni<n2 
flag=0 sinon 
” Less—than ” 


Initialise le formattage pour une édi- 
tion. 

La séquence : 

<# # #$ HOLD SIGN #> permet 
d’afficher un nombre en double lon- 
gueur. 

” Less—sharp” 


Compare nl à n2 et laisse un flag sur 
la pile: 
flag=1 si ni=n2 
flag—0 sinon 
°, Equals” 


= ee ee ee 


> (nil n2 ——— flag) Compare n1 à n2 et laisse un flag sur 
la pile: 
flag=1 si ni>n2 
flag=—0 sinon 
” Greater—than” 
>IN ( ——— adr) Laisse sur la pile l'adresse d’une 
variable qui contient l’offset du caractère 
suivant dans l’input stream. 
?To—-in” 
>R (n ——— ) Tränsfère le sommet de la pile de 
données vers la pile de Return. 
*To—-r LL 
? (adr ——— ) Affiche le contenu de la mémoire à 
l’adresse adr. 
” Question—mark ” 
2DUP (n ——— nn) Duplique le sommet de la pile si 
ou celui-ci est non nul. 
(n ——- n) ”Query—dup” 
@ (adr ——— n) Empile le contenu n de la mémoire à 
l’adresse adr. 
” Fetch ” 
ABORT Nettoie les deux piles, met l’interpré- 


teur en mode exécution et rend la main à 
l'utilisateur. 
” Abort ” 


Calcule la valeur absolue n2 du som- 
met de la pile nl et l’empile, 
” Absolute” 


(ni ——-— n2) 


Ajoute n mots au Parameter Field du 
dernier mot créé. 
” Allot ” 


Effectue un ET logique bit à bit entre 
les deux nombres. 
BASE Empile l’adresse d’une variable conte- 
nant la base courante de conversion des 
entrées-sorties. | 


{ ——— Adr ) 


BEGIN marque le début d’une 
séquence répétitive de mots. Une boucle 
BEGIN-—-UNTIL s’exécutera tant que le 
flag est faux. Une boucle BEGIN- 
WHILE-—-REPEAT s'exécutera tant que 
le flag est vrai. 


BEGIN...flag 
WHILE..REPEAT 


BEGIN..AGAIN 
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ar mme 
nn mt 


Empile l’adresse d’une variable conte- 
nant le numéro du block d’entrée-sortie 
étant interprété comme input stream. Si 
le contenu est zéro, l’input stream est le 
terminal. 


BLK ( ——— Adr ) 


Empile l’adresse du premier octet du 
bloc n. Si le bloc n’est pas résident, il est 
transféré depuis la mémoire de masse 
dans le buffer le moins récemment 
accédé. Si le bloc occupant ce buffer a 
été modifié (UPDATE), il est recopié sur 
la mémoire de masse. Si les accès à la 
mémoire de masse échouent, c’est une 
condition d’erreur. Seule l'adresse du 
dernier bloc référencé par BLOCK est 
valide, à cause du partage des buffers. 


( n ——— Adr) 


BUFFER Réserve le prochain buffer, en lui assi- 
gnant le numéro de Bloc n. Le bloc n’est 
pas lu sur la mémoire de masse. Si le 
précédent contenu du buffer est un bloc 
modifié (UPDATE), il est sauvegarde 
dans la mémoire de masse. Si les accès 
échouent, c’est une condition d’erreur. 
L'adresse empilée est celle du premier 


octet du buffer. 


Mémorise l’octet le moins significatif 
de n à l’adresse Adr. ” C—store” 


Empile le contenu de l’octet d’adresse 
Adr (Les huits bits de poids fort sont à 
zéro) 

”C—fetch” 


Déplace n octets de l’adresse Adi 
vers l’adresse Ad2. Le transfert com- 
mence à l’octet d’adresse Adi. Aucun 
effet si n est négatif ou nul. 


Lorsqu'un mot contenant COMPILE 
est exécuté, la valeur sur 16 bits suivant 
le Pfa de COMPILE est compilée 
(placée dans le dictionnaire). Par 
exemple, COMPILE DUP compilera le 
Cfa de DUP. COMPILE [ 0 , | compi- 
lera . 


Créé une définition de <nom> et 
place n dans son Pfa. Lorsque <nom> 
sera exécuté, il empilera n. 


n CONSTANT <nom> 


CONTEXT | (—-—- Adr) 


CONVERT (di adl ——— d2 ad2) 


DECIMAL 


DEFINITIONS 


DEPTH 


DNEGATE | (dd) 


Empile l’adresse d’un variable spéci- 
fiant le vocabulaire dans lequel seront 
faites les recherches pendant l’interpréta- 
tion de l’input stream. 


Convertit dans une cellule double de la 
pile (d1, d2) la chaîne de caractère com- 
mençant à l’adresse adl+1. L'adresse 
Ad2 représente celle du premier carac- 
tère non convertible dans la base 
courante. 

Embpile l’adresse Ad+1 et le nombre 
de caractères du texte commençant à 
Ad. Le premier octet à l’adresse Ad doit 
contenir la longueur du texte. 


Émet un retour chariot sur le périphé- 
rique de sortie courant. 


Crée une définition dans le diction- 
naire pour <nom>, sans réserver de Pfa. 
Lorsque <nom> sera exécuté, son Pfa 
sera empilé. 


Empile l’adresse d’une variable spéci- 
fiant le vocabulaire dans lequel les nou- 
velles définitions doivent être placées. 


_ Additionne di et d2. 
”D—plus LE] 


Vrai si di est inférieur à d2. 


_ ?D—inférieur ” 


Fait passer en base 10 pour les 
entrées-sortie. 


Rend le vocabulaire de contexte voca- 
bulaire courant, ainsi toutes les nou- 
velles définitions seront créées dans le 
vocabulaire de contexte. 


Empile le nombre de cellules de 
16 bits présentes sur la pile de données 
(n excepté). 


Empile le complément à deux d’un 
nombre en double longueur. 
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ÊTES 


DO 
DO … LOOP 
DO … +LOOP 
DOES> b, 2 ÉNOM où 
CREATE … 
DOES> … ; 
<nom> <nomex2> 
DROP (n —— ) 
DUP (n—-nn) 
ELSE IF... ELSE..THEN 
EMIT ( Carac. ——— ) 
EMPTY- 
BUFFERS 


EXECUTE 


Début d’une boucle qui se terminera 
suivant la valeur de paramètres de con- 
trôle. L'indice de boucle commence à n2, 


et se termine selon la limite nl. À LOOP 


ou +LOOP, l'indice est modifié d’une 
valeur positive ou négative. Les boucles 
DO...LOOP doivent pouvoir être imbri- 
quées à au moins trois niveaux. 


Définit la partie exécution d’un mot 
créé par un mot de haut niveau. 

Marque la fin de la partie de défini- 
tion du mot de définition <nom>, et 
commence la définition de la partie exe- 
cution des mots définis à l’aide de 
<nom>. À l’exécution de <nomex>, la 
séquence de mots entre DOES® et ; sera 
exécutée, le Pfa de <nomex> étant sur la 
pile. 


Jette le nombre en simple longueur 
situé au sommet de la pile. 
” Drop 99 


Duplique le nombre en simple lon- 
gueur situé au sommet de la pile. 
”Dup” 


Lorsque ELSE est utilisé dans cette 
structure à l’intérieur d’une définition il 
s'exécute aprés la partie VRAI suivant 
IF. Il déroute l’exécution juste après le 
THEN. Il n’a pas d’effet sur la pile. 

” Else” 


706 


Transmet le caractère au périphérique 
de sortie courant. 
Emit” 


tous les buffers d’entrée-sortie, sans 
nécessairement les mettre à zéro. Les 
buffers qui ont été modifiés ne sont pas 
sauvegardés. 

”Empty—buffers ” 


Exécute le mot du dictionnaire dont le 
Cfa est sur la pile. 
”Execute” 


Lorsque utilisé dans une définition, 
stoppe l'exécution à cet endroit. 

Ne doit pas être utilisé à l’intérieur 
d’une structure DO … LOOP. 

Exit” 


EXPECT (Adr n —-— ) 
FILL ( Adr n Octet ——— ) 


Met à VIDE les flags d'occupation de 


Transfère les caractères venant du 
périphérique d’entrée dans la zone 
mémoire commençant à l’adresse Adr, 
jusqu’à réception de Return, ou celle de 
n Caractères. N’a aucun effet si n est 
inférieur ou égal à 0. Un ou deux nuls 
sont placés à la fin du texte en mémoire. 
” Expect ” 


Remplit la zone mémoire commençant 
à l'adresse Adr de n octets de valeur 
Octet. Aucune action si n est inférieur ou 
égal à 0. 
5° Fill LE 


FIND ( ——— Adr ) 


FORGET FORGET <nom> 


Laisse sur la pile le Cfa du mot sui- 
vant de l’Input Stream. Si ce mot n’est 
pas trouvé après une recherche dans le 
vocabulaire de contexte et dans le voca- 
bulaire FORTH, laisse O sur la pile. 

Find” 


Supprime du dictionnaire <nom>, du 
vocabulaire courant, et tous les mots 
définis depuis, sans distinction de voca- 
bulaire. 

Si la recherche n’aboutit pas dans le 
vocabulaire courant et dans FORTH ,un 
message d’erreur est émis. 

” Forget ” 


Le nom du vocabulaire de base. Les 
nouvelles définitions lui sont reliées, 
jusqu’à assignation d’un nouveau voca- 
bulaire courant. Les vocabulaire courant 
d’un utilisateur lui sont chaïinés, et on 
peut donc considérer que tous les voca- 
bulaires contiennent FORTH. 

” Forth ” 


Retourne l’adresse de la première cel- 
lule libre du dictionnaire. 
°° Here ”” 


Insère un caractère dans une chaine 
représentant un nom-formaté pour l’édi- 
tion. Doit être utilisé uniquement dans la 
structure <#...#2>, 

” Hold” 


Copie l'indice de boucle sur la pile de 
donnée. Fait partie des structures 

DO … I … LOOP et 

DO … I … +LOOP. 


ci Ki 
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a —— a me ne en 


Utilisé dans les syntaxes IF..ELSE...- 
THEN et IF... THEN. 

Si le Flag est VRAI, les mots suivant 
IF sont exécutés et les mots suivant 
ELSE ne le sont pas. Cette seconde 
partie de la structure n’est pas indispen- 
sable. 

Si le Flag est FAUX, les mots entre 
IF et ELSE, ou ceux entre IF et THEN 
(si il n’y a pas de ELSE), ne sont pas 
exécutés. Ces structures peuvent être im- 
briquées. 

39 If 


IMMEDIATE 


Marque le dernier mot défini dans le 
dictionnaire comme un mot à exécuter et 
non pas à compiler, lorsqu'on le ren- 
contre pendant une compilation. 

” Immediate” 


Retourne l’indice de la boucle de 
niveau immédiatement supérieur, dans 
les structures de boucles imbriquées: 
DO..D0O..J..LOOP...LOOP. 
Én 


Laisse sur la pile la valeur ASCII du 
prochain caractère arrivant du périphé- 
rique d’entrée. 

59 Key” 


( ——— Carac. ) 


LEAVE 


Force la sortie d’une boucle DO... 
LOOP au prochain LOOP ou +LOOP 
‘en mettant l’indice final de la boucle égal 
à la valeur de l’indice courant. L'indice 
lui-même reste inchangé, et l’exécution 
se déroule normalement jusqu’à la ren- 
contre du mot de fin de boucle. 

” Leave” 


Liste le contenu de l’écran n sur le 
périphérique de sortie, et met n dans la 
user-variable SCR. 

” List” 


LIST 


LITERAL En cours de compilation, compile la 
valeur n comme un litéral sur 16 bits, 
qui lorsqu'il sera exécuté, laissera la 
valeur n sur la pile de donnée. 


? Literal ” 


LOAD (n ——— ) 


Lance l'interprétation de l’écran n en 
le prenant comme Input Stream; pré- 


serve les pointeurs de l'actuel Input 
Stream (de >IN à BLK). Si l’interpréta- 
tion ne se termine pas explicitement, elle 
se terminera à la fin de l’écran. Le con- 
trôle est alors passé à l’Input Stream 
contenant le LOAD, déterminé par les 
pointeurs d’Imput Stream >IN et BLK. 


LOOP Incrémente de 1 l’indice de la boucle 
DO...LOOP, et termine la boucle si le 
nouvel indice est supérieur ou égal à la 
limite. 

LE] Loop Lb 

MAX ( nl n2 ——— n3) . Laisse le plus grand des deux nombres 

sur la pile. 
,9 Max 9 


MIN ( nl n2 ——-— n3 ) Laisse le plus petit des deux nombres 
sur la pile. 
Min” 
MOD ( nl n2 ——-— n3 ) Divise nl par n2, et laisse le reste, 
avec le même signe que ni. 
*” Mod 99 


MOVE ( Adri Adr2 n —-—— ) 
du nombre, c’est-à-dire la différente O—n. 


NEGATE (n —— -n) 
”Negate” 
( Flagl ——-— Flag2 ) Inverse le sens booléen du flag sur la 
pile. Identique au mot O—. 
Not” 
(nl n2 -—— n3) Laisse le résultat du OÙ inclusif bit 
par bit des deux nombres. 


OVER (ni n2 ——— ni n2 nl) Empile la copie du second nombre. 


( ——— Adr ) Empile l’adresse d’une zone tampon 
utilisée pour ranger les chaînes de carac- 
tère à interpréter. La capacité minimun 
de PAD est 64 caractères. 


Déplace un nombre n de mots de 
16 bits, de l’adresse Adri vers l’adresse 
. Adr2. Le premier mot transféré est le 
mot d’adresse Adri. Si n est négatif ou 
nul, aucun effet. 
LE Move” 


Laisse sur la pile le complément à 2 


> 


I 
© 
1 
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| PICK 


( nl ——— n2 ) Empile le contenu de la nl ième cel- 
lule de la pile. Si ni est inférieur à 1, un 
message d’erreur est émis. 2 PICK est É 
équivalent à OVER. L THEN IF...ELSE..THEN THEN est le point de déroutement de 

IF... THEN l’exécution après le ELSE, ou le IF s’il 
QUERY Accepte 80 caractères venant du péri- o n'y a pas de ELSE. 

phérique d’entrée, et les range dans le É 
Terminal Input Buffer (TIB). WORD Le TYPE ( Adrn ——-— ) Émet une zone mémoire de n octets 
peut être utilisé pour utiliser ce buffer commençant à l’adresse Adr vers le péri- 
comme input stream, en mettant >IN et phérique de sortie. Aucun effet si n est 
BLK à zéro. négatif ou nul. 

QUIT Initialise la pile de Return fait passer Us ( Uni Un2 ——-— Ud3 ) Effectue une multiplication non- 
en mode interprétation, et passe le con- signée de Uni par Un2, et laisse le pro- 
trôle au terminal. Aucun message duit en double longueur sur la pile. 
n’apparaît. Toutes valeurs non-signées. 

— ? U—-fois” 
R> (—— n) Transfère n de la pile des Return à la 
pile des données. Affiche la valeur de Un dans la base 
”R—from” courante, en format libre, non-signé, 
ME suivi d’un blanc. 
R@ (———- n) Copie sur la pile de donnée le sommet *U-—point” 
de la pile des Return. 
” R—fetch” (Udi Un2———-Un3 Und) Effectue la division non-signée du 
| nombre en double longueur Udi par 
REPEAT BEGIN...WHILE... Un2, et retourne le reste Un3, et le quo- 


ROLL 
ROT 


SAVE- 
BUFFERS 


(——- Adr ) 


Ce) 


nil n2n3 —-—— n2 n3 nl 


REPEAT 


A l’exécution, REPEAT déroute juste 
après le BEGIN correspondant. 


Fait effectuer une permutation circu- 
laire aux n premières cellules de la pile. 3 
ROLL est équivalent à ROT. 


Fait effectuer une permutation cir- 
culaire aux trois premières cellules de la 
pile. 


Sauvegarde tous les buffers d’entrée- 


sortie qui ont été modifiés. Si l’écriture 
sur mémoire de masse échoue, un mes- 
sage d’erreur est édité. 


Empile l’adresse d’une variable qui 
contient le numéro du dernier écran liste. 
PSLCEr LE] 


Insère dans la chaîne de caractères en 
construction représentant un nombre le 
caractère ASCII — si n est négatif. 


. 
| UNTIL 


È SW AP (nl n2———-n2nl) Échange les deux cellules au sommet 
Ê de la pile. 


tient Und. Toutes valeurs non-signées. 
”’u—slash-mod” 


Laisse le flag correspondant à 
Un1i<Un2, ces deux valeurs étant consi- 
dérées comme des entiers non-signés sur 
16 bits. 

39 U--inf” 


( Flag ——— ) Dans une définition, marque la fin 
d’une boucle BEGIN..UNTIL, qui se 
terminera selon la valeur du flag. S’il est 
vrai, la boucle est terminée. Si le flag est 
faux, l’exécution est déroutée vers le pre- 
mier mot suivant BEGIN. Ces structures 


peuvent être imbriquées. 


Créé une défition du dictionnaire pour 
<nom>, et réserve deux octets pour le 
stockage du Pfa. On doit initialiser la 
valeur. Quand on exécute <nom>, il 
empile l’adresse de stockage. 


VARIABLE <nom> 


SCR 
SIGN 
SPACE 
SPACES 
A0 


Émet le caractère blanc ASCII vers le 
périphérique de sortie. 


VARIABLE 


ZAA 


Émet n caractères blanc ASCII vers 
le périphérique de sortie. Aucun effet si n 
est négatif ou nul. 


a — 
és ——__—_—— ——û— 


VOCABU- VOCABULARY <nom> Crée, dans le vocabulaire courant, 
LARY une définition de <nom> qui spécifie 


une nouvelle liste ordonnée de défini- 
WHILE ( Flag ——-— ) 
BEGIN... flag 
WHILE..REPEAT 
WORD ( Carac ——— Adr ) 
XOR ( nl n2 ——- n3 ) 


tions de mots. Les exécutions ultérieures 
[ 
[COMPILE] 


de <nom> en feront le vocabulaire de 
contexte. Quand <nom> sera vocabu- 
laire courant (voir DEFINITIONS), les 
nouvelles définitions lui seront rat- 
tachées. Les nouveaux vocabulaires sont 
chaînés à FORTH. 

Extensions 


Sélectionne l’exécution conditionnelle 
suivant la valeur de flag. S’il est vrai, 
continue l’exécution jusqu’au REPEAT, 
qui la déroutera au premier mot après 
BEGIN. Si le flag est faux, l’exécution 
est déroutée juste après le REPEAT. 


Reçoit des caractères de l’input stream 
jusqu’à un caractère délimiteur, ou la fin 
de l’input stream. La chaine de caractères 
est stockée, précédée de sa longueur. Le 
caractère de fin Carac ou nul est placé à 
la fin de la chaîne, et ne compte pas dans 
sa longueur. Si l’input Stream est ter- 
miné quana WORD est exécuté, la lon- 
gueur est nulle. L'adresse du premier 
octet de la chaîne est empilée. 


Effectue un OÙ exclusif bit par bit 
entre les deux nombres. 


Sort du mode compilation. Le texte 
qui suit est exécuté. Voir |. 
” Crochet-gauche” 


Force la compilation du mot suivant. 
Permet de compiler un mot immédiat, 
qui aurait été exécuté. 


[COMPILE] <nom> 


(d adr ——— ) Range en mémoire la valeur d sur 
quatre octets à partir de l’adresse adr. 
(double longueur). 


”’two—store ” 


Ramène sur la pile le contenu des 
quatres cellules mémoire à partir de 
l’adresse adr. (double longueur). 

”’two—fetch ” 


Es 
' 
re 
Re 
E 
pu 
Se 
Le 
Fe 
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Crée dans le dictionnaire une tête de 
chaîne et range la valeur d dans le para- 
meter field, en double longueur. 

”’two—constant ” 


(d———) 


d 2ZCONSTANT 
<name> 


2CONSTAN 
2DROP 


Dépile le sommet de la pile en double 
longueur. 
”two—drop ” 


(d ——— dd) Duplique le sommet de la pile en 
double longueur. 


”two-dup” 


Créé une copie du nombre en seconde 
position dans la pile, en double longueur. 
”two-over ” 


(di d2———d1 
T d2 di ) 


Permutation circulaire gauche des 
trois éléments en double longueur situés 
au sommet de la pile. 

”two-rot” 


(d1 d2 d3 ——— 
d2 d3 dl) 


(di d2 ——— d2 di ) Échange les deux éléments au sommet 
de la pile en double longueur 


7twWo—swap” 


Crée une tête de chaîne pour une 
variable en double longueur. Réserve 
quatre octets pour la valeur. 

”two-variable ” 


2VARIABLE 
<name> 


Addition en double longueur. 
3 d—plus LE) 


Soustraction en double longueur. 
” d—minus ” 


Affiche un nombre en double lon- 
gueur. 
” d—dot ” 


Affiche un nombre, justifié à droite, 
avec signe si négatif. 
”d—dot-r” 


Compare une valeur numérique en 
double longueur à zéro et retourne un 
flag. 

” d—zéro—-équals ” 


Compare deux nombres en double 
longueur. 
” d—-less” 


AS 


D— (di d2 ——-f) Compare deux nombres en double 
longueur. 
”d—equal” 
DABS (di ——— d2) Retourne la valeur absolue d’un 
nombre en double longueur. 
”’d—abs” 
DMAX (di d2 ——— d3) Retourne sur la pile le plus grand de 
deux nombres. 
”’d-—max 2) 
DMIN (di d2 ——— d3) Retourne sur la pile le plus petit de 


deux nombres. 
LE] d—min LE] 


DNEGATE 


Retourne sur la pile le complément à 
deux d’un nombre en double longueur. 
”d—negate ” 


DU< (udl ud2 ——— f) Même fonction que D<, avec des 
nombres en double longueur non signés. 
”d—u-less” 
Assembleur 
CODE syntaxe : Arrête la compilation et termine le mot de 


définition <name>. ASSEMBLER devient le 
vocabulaire de contexte. Lorsque <name> est 
exécuté sous la forme: 

<name> <namex> 

pour définir <namex>”, 

l’adresse d'exécution de <namex> contiendra 
l’adresse de la séquence de mode contenue 
dans la définition de <name>, qui suit 
CODE. L’exécutio de <namex> entraînera 
l’exécution de la séquence de code correspon- 
dante. 

” semi—colon—code ” 


: <name>…. ;: CODE 


Sélectionne le vocabulaire ASSEMBLER 
comme vocabulaire de contexte. 


ASSEMBLER 


Mot de définition utilisé pour générer une 
tête de chaine <name>, défini par la séquence 
de code incluse entre CODE et 
END—-CODE. 

ASSEMBLER devient vocabulaire de 
contexte. 


CODE syntaxe : 
CODE <name>.. 


… END—CODE 


Fin de ”code-définition”. Remet CON- 
TEXT à CURRENT, si aucune erreur n’a été 
détectée en cours de définition. 


END—-CODE 


4 


Candidats à la standardisation 


+BLOCK 


(ni adr n2 ——— ) Range en mémoire la valeur ni masquée par 
n2, à l’adresse adr, elle aussi masquée par n2. 


” store—bits ” 


Fonction exponentiation, 
LE] power LE 


Retourne sur la pile nl augmenté du 
nombre de blocs interprétés. 
” plus-block” 


(nl n —-—-- n3) 


( ——— adr0 ) Si <name> peut être trouvé dans le voca- 

ou bulaire de contexte, retourne son PFA et un 
(——— 1 ) flag FALSE, sinon retourne un flag TRUE. 
syntaxe: —’ <name> ” dash—tick ” 


Poursuit l’interprétation dans le bloc sui- 
vant. Peut être utilisé dans une définition trop 
longue... 

”next—block” 


(adl nl ad2 n2 
——— ad3 f) 


Comparaison du contenu de deux zones 
mémoire. Les n2 premiers caractères, à partir 
de l’adresse ad2 sont comparés aux nl pre- 
miers caractères à partir de l’adresse adl. 
Retourne sur la pile l’adresse du premier 
caractère en défaut (ad3) et un flag qui 
indique l’égalité des deux zones. 

”dash—match” 


(adi nl ad2 ——— 
——— n2) 


Compare deux chaines, sur nl caractères, 
à partir des adresses ad1 et ad2. Retourne la 
différence des deux premiers caractères difFé- 
rents, ou 0. 

” dash—text” 


Affiche n1, justifié à droite, dans un champ 
de n2 caractères. si n2 est plus petit que 1, 
aucun effet. 

dot-—r 59 


(nil n ——-—- ) 


Mot de fin de structure DO LOOP. L'in- 
dice de boucle est augmenté de la valeur non- 
signée de n. 

”up loop ” 


Ajoute 1 à la valeur sur 16 bits à l’adresse 
adr. 
”one—plus-store ” 


Retranche 1 à la valeur sur 16 bts situées à 
l’adresse adr. 
”’one—minus-—store ” 


Multiplication par 2. 
”two-times ” 
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Z/ (nl ——— n2) Division par 2. BL (——--n) Retourne sur la pile la valeur ASCII du 
”two-divide ” caractère blanc. 
LE) b—I Li] 
5 Stoppe l'interprétation d’un bloc. Exécu- 
tion RIQUEMENT: BLANKS (adrn ——— ) Remplit une zone mémoire commençant à 
”semi—s l’adresse adr de n caractères blancs. 
(nn2-== flag) Teste l'inégalité de deux nombres et C, (ne) Range la valeur sur 8 bits au sommet de la 
retourne un flag au sommet de la pile. pile à la première cellule libre du dictionnaire. 
”’not—-equal ” Met à jour DP. 
<BUILDS syntaxe : Outil de définition de mot de définition. CHAIN syntaxe ; Connecte le vocabulaire CURRENT à 
: <name> … Lorsque <name> sera exécuté, <BUILDS CHAIN <name> toutes les définitions qui pourront être faites 
<BUILDS (1) crée une tête de chaîne pour <namex>, le sous le vocabulaire <name> à l’avenir. 
DOES> (2) parameter field est préparé par la séquence Chaque vocabulaire ne peut être connecté 
(1). _. | qu’une fois, mais peut être l’objet de plusieurs 
A l'exécution de <namex”, la séquence (2) chaînages. Par exemple, chaque vocabulaire 
<name> <namex> sera exécutée. peut contenir la séquence CHAIN FORTH. 
<CMOVE (ad! ad2 n ——-— ) Copie n octets à partir de l’adresse ad1 à COM il ==="12) Retourne le complément à 1 de ni. 
l’adresse ad2, en commençant par les adresses ren 
les plus hautes. : CONTINUED | (n ——— ) Continue l'interprétation du block n. 
reverse—Cc—move : nn 
CUR ( ——— adr ) Variable qui retourne la position courante 


SW AP l’octet de poids fort avec l’octet de 
poids faible. 
” byte-swap ” 


>MOVE< (ad! ad2 n —-—-— ) Copie n octets de ad1 vers ad2. L'ordre des 
octets est inversé à chaque mot. 


”byte—-swap—move” 


@ BITS 


(adr ni ——-— n2 ) Retourne sur la pile le contenu de l’adresse 
adr, masqué par nl 


” fetch—bits ” 


ABORT” 


Si le flag est TRUE, affiche à l'écran tout 
le texte qui suit jusqu’à la rencontre de ” et 
enchaîne sur ABORT. 

”abort—-quote ” 


Saut inconditionnel au début de la struc- 
ture BEGIN—-AGAIN. 


DBLOCK 


DPL 


DUMP 


EDITOR 


(d ——— adr) 


( ——— adr) 


(adr n ——— ) 


de la tête de lecture. 


Identique à BLOCK mais utilise un 
nombre non-signé en double longueur. 

” d—block ” 

Variable qui contient la position de la vir- 
gule pour l'affichage. 

Si DPL vaut O, un point décimal sera tout 
de même émis en dernière position. Aucun 
point ne sera généré si DPL est négatif. 

”d—p-l 5 

Liste le contenu des n octets à partir de 
l'adresse adr. 

EDITOR devient vocabulaire de 
CONTEXT. 


—… . END Synonyme de UNTIL. 
execution ( ——— ç ) Retourne le code ASCII du premier carac- | 
compilation ( ——— ) tre non-blanc de l’input stream. A la compi- ERASE (adr n ——— ) Met à zéro n octets à partir de l'adresse 
lation, compile ce caractère comme un litéral, ad: 
qui sera retourné sur la pile à l’exécution. » 
| FLD ( ——— adr) Variable qui pointe sur le champ réservé 
ASHIFT (nl n2 ——-— n3 ) Décalage de nl de n2 bits. pour un nombre pendant les conversions pour 
n220: décalage à gauche remplacement par affichage. 
des zéro. | 
n2<0 : Rs a droite, avec conservation FLUSH Un synonyme de SAVE-BUFFERS. 
u signe. 
( ——— 1024 ) Constante qui contient le nombre de carac- H. (n ——— ) Affichage d’un nombre en hexadécimal. La 
tères par buffer. base courante est conservée. 
“h_dot” GA 
BELL À Déclenche un beep sonore sur le terminal. Te 
— HEX 


Fixe la valeur de la base courante à seize. 


AC 


IFEND 


IFTRUE 


INTERPRET 


LINELOAD 


MASK 


EE 


(n ——— adr) 


(n —— ) 


syntaxe : 


n LOADS <name> 


(flag ——— ) 
syntaxe : 
IFTRUE 


OTHER WISE 


IFEND 


(nl n2 ——— ) 


( ——— adr) 


(nl ——— n2) 
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(se) 


Retourne l'indice de la boucle externe pour 
deux structures DO LOOP imbriquées. 


Utilisé pendant les définitions de mots, en 
particulier dans les structures DO—LOOP. 
Retourne sur la pile l’indice maximum de 
boucle, c’est-à-dire la deuxième valeur dans la 
pile des returns. 
”1i-prime ” 


Termine une structure conditionnelle 

’IFTRUE. 

Structure semblable à IF ELSE THEN, 
sauf qu’elle ne peut être imbriquée, et ne peut 
être utilisée qu’à l’interprétation. 

Permet de contrôler la compilation, sans 
être incluse dans la définition. 


Affiche la première ligne de chaque écran 
de n1 à n2, qui contient conventionnellement 
le titre. 


Commence l'interprétation à partir du ca- 
ractère indexé par le contenu de >IN, relative- 
ment au bloc adressé par BLK, jusqu’à ce que 
l’'INPUT STREAM soit épuisé. Si BLK con- 
tient zéro, l'interprétation a lieu sur le TER- 
MIN AL INPUT BUFFER. 


Variable qui contient l’adresse de début de 
tête de chaîne de la dernière entrée du diction- 
naire, qui n’est pas nécessairement une défini- 
tion valide ou complète. 


Retourne l’adresse du début de la ligne n 
du bloc adressé par SCR. Le numéro de ligne 
varie de O à 15. 


Commence l'interprétation à partir de la 
ligne n1 de l’écran n2. 


Lorsque <name> sera exécuté, l’écran n 
sera chargé. 


Retourne un masque avec les nl bits de 
poids fort à 1 si n1>0, ou bits de poids faible, 
si n1<0. 


Introduit un délai d’exécution de environ n 
millisecondes. 


Complément à 1 du ET logique de ni et 
n2. 


NUMBER 


NOR (nl n2 ——-— n3) Complément à 1 du OÙ logique de nl et 
n2. 


Convertit une chaîne de caractères à 
l’adresse adr en un nombre signé sur 32 bits, 
avec message d’erreur en cas d’impossibilité. 


(adr ——— n,) 


Affiche un nombre en octal sans affecter la 
base courante. 
*o—dot” 


Variable qui contient la valeur à ajouter au 
numéro courant du bloc, pour déterminer son 
adresse physique réelle. 


Efface l’écran du terminal, ou plus généra- 
lement effectue un ’form—feed”’. 


Définit un mot qui lorsqu'il sera exécuté, 
détruira du dictionnaire <name> et toutes les 
définitions qui le suivent chronologiquement. 
ex : 

REMEMBER ICI 


REMEMBER 


REMEMBER <name> 


ICI 
REMEMBER ICI 


Effectue une rotation des bits de ni, de n2 
bits vers la gauche si n2>0, vers la droite si 
n2<0. 


(nl n2 ——— n3) 


ROTATE 


Retourne l’adresse du fond de pile (bottom 
of stack), 
?s—zero” 


( ——— adr) 


Permet de définir des mots qui lorsqu'ils 
seront exécutés, rangeront la valeur n à 
l'adresse adr. 


(n adr —— ) 
syntaxe : 
n adr SET <name> 


SHIFT (nl n2 ——-— n3) 


( ——— adr) 


Décalage logique de n2 bits dans le 
nombre ni. 

si n2>0, décalage gauche 

si n2<0, décalage droit. 

Les bits dégagés sont mis à zéro. 


Retourne l’adresse du sommet de la pile, 
juste avant l’exécution de SP@. 
”s—p—fetch” 


Transfère des caractères de l’'INPUT 
STREAM dans PAD. Les caractères restants 
de PAD sont mis à blanc. 


Charge consécutivement les blocs numéro- 


tés de nl à n2. Q A à 


(nl n2 ——— ) 
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Affiche unl, non-signé sur 32 bits, justifié 
à droite dans un champs de n2 caractères. 

’u—dot-r” 

Permet de définir une USER VARIABLE 
<name>. n est l’offset par rapport au début 
de la USER AREA. L’exécution de <name> 
retourne sur la pile l’adresse absolue de le cel- 
lule où est rangée le valeur. 

Édite la liste des noms des mots du voca- 
bulaire de CONTEXT, en commençant par la 
définition la plus récente. 


Affiche des mots d’état sur FORTH à sa- 
voir: 
— le dernier mot compilé 
— le dernier bloc utilisé 


Mot de fin de structure DO LOOP. L'in- 
dice de boucle est décrémenté de n à chaque 
passage jusqu’à être inférieur à l'indice de fin. 
n doit être positif. 

” down—loop”. 


ANNEXE 2 
ÉDITEUR 


Nous avons vu dans le chapitre sur l’éditeur quelles étaient les com- 
mandes nécessaires et quelles étaient leurs fonctions. Un très bon exercice 
consiste à écrire un éditeur. 


Dans cette annexe nous vous donnons un exemple d’éditeur que vous 
pourrez utiliser et perfectionner. 


Les mots sont suffisamment simples pour que nous ne mettions pas de 
commentaires, ce qui vous permettra de vous familiariser avec la lecture 
d’un FORTH non commente. 


Les blocs ont une taille de 1024 octets (écran unitaire). Chaque écran 
comprend 16 lignes de 64 caractères. 


Les blocs de texte sont gardés soit dans les DISK-BUFFERS, soit 
dans le SCREEN-BUFFER. 


Le numéro d’écran correspond à l’adresse physique du bloc à l’écran 
sur la mémoire de masse. Sa valeur est gardée dans la USER VARIABLE 
SCR. 


La position du curseur dans le SCREEN—-BUFFER est gardée dans 
une autre USER VARIABLE R%. | 


Le texte destiné à être inséré ou supprimé du SCREEN BUFFER est 
temporairement conservé dans le TEXT BUFFER AREA, pointé par le 


mot PAD, qui retourne une adresse mémoire située 68 octets au-dessus du 


dictionnary pointer DP. PAD est utilisé comme ” mémoire brouillon ” pen- 
dant la mise au point de la ligne courante. 4 9 A 


Tous les mots définis vont être regroupés dans le vocabulaire EDI- 
TOR, defini comme: 


VOCABULARY EDITOR IMMEDIATE OK 


Pour rendre EDITOR vocabulaire CURRENT, il suffit alors de taper: 


EDITOR DEFINITIONS |Return | OK 


Toutes les définitions suivantes seront ajoutées à EDITOR au lieu 
d'être traitées comme des définitions FORTH ordinaires. 


Deux mots de base vont servir à réaliser les fonctions de mise au point 
de la ligne, TEXT et LINE. 


TEXT déplace une ligne de texte de l'INPUT STREAM vers le TEXT 
BUFFER AREA du PAD. | 


LINE calcule l’adresse de la ligne dans le SCREEN BUFFER. 


: TEXT ( C——— cest le caractère délimiteur) 


Adresse de début du WORD BUFFER où l'inter-) 
( préteur de texte place les caractères) 


nn, 


HERE 


C/L 1+ ( nombre de caractères par ligne + 1) 
BLANKS ( mise à blanc) 
WORD ( déplace le texte, délimité par c, de l'INPUT) 
( STREAM au WORD BUFFER) 
PAD ( adresse du TEXT BUFFER) 
C/L 1+ ( nombre de caractères par ligne + 1) 
CMOVE ( Déplace le texte, 64 octets+longueur, vers PAD) 


[Return OK 


: LINE ( n———adr retourne l'adresse du début de la li-) 
gne n dans le SCREEN BUFFER. Charge le bloc s'il) 
n'est pas encore dans les DISC—BUFFER) 


DUP 

FFFOH AND 

17 ?ERROR  ( s'assurer qu'il est bien compris entre O et 15) 

SCR ( retourne le numéro de l'écran courant) 

(LINE) ( Transfère l'écran du DISC BUFFER vers le) 
( SCREEN BUFFER, et éventuellement charge un) 
( bloc dans les DISC BUFFER.) 
( Calcule l'adresse de la n-ième ligne du SCREEN) 
( BUFFER, et la met sur la pile.) 

DROP 


| [Retum]ok 


On peut alors mettre directement ces mots en pratique: 


: —MOVE ( adr n ——— Copie une ligne de texte à partir de) 
l'adresse adr dans la n-ième ligne du SCREEN) 
BUFFER courant) 


nn, 


LINE ( calcule l'adresse de la ligne n) 

C/L CMOVE ( Déplace 64 caractères de adr vers la ligne n) 

UPDATE ( Notifie au HANDLER de disque que le bloc a été) 
( modifié) 


: [Return]OK 


: H ( n ——— Copie la n-ième ligne du SCREEN BUFFER) 
dans PAD. Le texte est alors prêt à être affiché) 


nn, 


LINE ( calcule l'adresse de la ligne) 
PAD 1+ ( adresse de début de PAD) 

C/L DUP ( nombre de caractères par ligne) 
PAD Cl! ( met la longueur de PAD à 64) 
CMOVE ( déplace la n-ième ligne) 


: [Return] OK : 
22S 


40 ( ni ——— Mes a nan ra 1-1ÈME nynie, dévaie vers) _R 
le bas l’ancienne ligne et toutes les suivantes une) 
par une. La dernière ligne est perdue) 


is, 


n ——— Remplace la n-ième ligne par le texte) 
contenu dans PAD)) 


cn, 
nn, 


nn, 


PAD 1+ ( adresse de début de PAD) 
DUP 1— ( dernière ligne à déplacer) 
SWAP — MOVE( copie le texte depuis PAD dans la n-ième ligne) 
OEH ( 14, numéro de la dernière ligne à décaler) 
Return OK 
DO 
| LINE ( calcule l'adresse de la n-ième ligne) A4 ( n ——— Place le texte qui suit dans la n-ième ligne.) 
( l’ancien texte est perdu.) 
l  1+ ( numéro de ligne suivante) | 
| 1 TEXT ( accepte le texte qui suit, avec deux conditions) 
TU | décalage d'une ligne vers le bas ( d'arrêt: C/L caractères ou rencontre de CR, dans) 
—1  +LOOP ( décrémente le compteur de boucle de 1) ( la n-ième ligne) 
E ( efface la n-ième ligne) R 
Return] OK ; Ok 
: D ( n——— Supprime la n-ième ligne du SCREEN) 
( BUFFER et remonte toutes les lignes consécu-) ( n——— Insère un texte dans le SCREEN BUFFER) 
({ tives de 1 cran. La ligne supprimée reste dans) ( initialement contenu dans PAD. Toutes les idées) 
( PAD.) ( qui suivent la ligne n sont décalées vers le bas) 
DUP H (_ copie de la n ième ligne dans PAD) (et la dernière est perdue) 
OFH ( numéro de la dernière ligne) DUP S ( met la n-ième ligne à blanc) | 
DUP ROT R ( Copie le contenu de PAD dans la n ième ligne) 
DO | ; Return OK 
| 1+ LINE ( adresse de la ligne à déplacer) 
RP MONE OR ORÉSRENNOEERNeR ERA Voici les mots qui travaillent sur des écrans entiers: 
LOOP 
E ( effacer la dernière ligne) : CLEAR ( n ——— Efface le n-ième écran en mettant toutes) 
OK ( ses lignes à blanc) 
o. LA La e , . | 4 
Il est possible d’écrire également les mots élémentaire de manipulation SCR ! ( met à jour SCR) 
de la ligne courante: 10H O DO 
: E ( n ——— Efface la n-ième ligne, en la remplissant) FORTH !| ( Passage en FORTH pour avoir la bonne définition) 
( de 64 caractères blancs.) ( de |, qui donne l'indice courant de la boucle.) 
LINE ( adresse de la ligne) EDITOR E ( effaçage de la ligne) 
C/L BLANKS ( mise à blanc) | _ LOOP 


UPDATE ( marquage du buffer) OK | 
QU : OK | 225 
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COPY { n1 n2 —— copie de l'écran nl sur l'écran n2) 


B/SCR x ( premier bloc correspondant à l'écran n2) 
OFFSET @ + ( adresse physique sur le disque) 

SWAP ( adrni ——— ) 

B/CSR * ( premier bloc correspondant à l'écranni) 


B/SCR OVER + {( adrbloc2 bloc2+1——— ) 


SWAP { adr(n2) fin(n1)+1 debut(n1)+1 ———) 

DO ( adr(n2) ———) 

DUP ( adr(n2) adr(n2)) 

FORTH | ( adr(n2) adr(n2) adr—-courante(n1)) 

BLOCK ( charge le bloc courant de l'écran n1 dans le) 


DISC BUFFER et retourne son adresse) 


men, 


2 À ( lui donne comme numéro, le numéro du bloc) 
( courant dans l'écran n2) 

1 + ( passe au bloc suivant dans l'écran n2) 

UPDATE ( signale la modification du bloc) 

LOOP 

DROP 

FLUSH ( mise à jour sur disque de tous les blocs) 


modifiés) 


cnrémen, 


Return) ok 


Tous les mots présentés ci-dessus constituent un petit éditeur de page 
ligne par ligne, au sens que l’objet élémentaire susceptible d’être modifié est 


la ligne de texte. 


Les mots que nous allons voir maintenant permettent de travailler la 
ligne elle-même au niveau de la chaine de caractères. 


La variable R# contient un curseur pointant sur le prochain caractère 
qu’il est possible d’atteindre par l’éditeur de chaine. 


Le tout premier mot à définir est celui qui permet de chercher une 
chaîne dans un texte, en déplaçant le curseur au fur et à mesure: 


AR ARR A CR RER PEACE 


: MATCH 


DR >R 2DUP 


R> R>  2SWAP 
OVER + SWAP 


DO 

2DUP 
FORTH | 
—TEXT 


IF 
>R 2DROP R> 
— | SWAP — 
O SWAP 

O O LEAVE 
THEN 

LOOP 

2DROP 


SWAP 0O= SWAP 
ok 


: —TEXT 


SWAP 

—DUP IF 

OVER + SWAP 
DO 


DUP C 

FORTH I C — 
IF O= LEAVE 
ELSE 1+ 

THEN 


NND 


émmn, 


adiniad2n2-——fn3 ) 


ren, 


duplication de adi etn1 ) 

ad1i n1 ad2 n2 adi ni ——-— ) 

ad1 n1 ad2 n2 ad1+n1 ad1 ——-— ) 
ad1 n1 ad2n2 ——— ) 
adiniad2n2ad2n2-—- |) 

ad1 n1 ad2 n2 ad2n21-——-— ) 


Te, mme 


le texte (2) et le texte (1) correspondent-ils) 
Sur les n2 premiers caractères ?) 


adiniad2n2 ——— ) 
ad n2 ——— ) 
(n3—— 1) 

( On3 ——— ) 


CT mn, 


( quitter la boucle avec 2 zéro muets) 


( nettoyer la pile) 


( mettre le flag dans le bon sens) 


( adinad2--——#f Sjiles chaînes com-) 

( mencçant à ad1 et ad2 coïncident sur les n) 
( premiers caractères, retourne un flag) 

( TRUE, sinon retourne un flag FALSE) 


( ad1 ad2 n——-— ) 

( sin vaut zéro, évite le traitement) 

( ad1 ad2+nad2 ——- ) 

( ad1 ——— ) 

( adic——— ) 

( adl c—c'——— ) 

(ils sont différents, on quitte la bouche |} 


( sinon on continue à comparer ) 
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On peu alois ecrire les premiers mots ae manipulation de la ligne elle- 


même : 
: TOP 
ORx  ! 
Return] OK 


: ÆLOCATE 


R# 
C/L /MOD 


: [Return] OK 


: A#LEAD 


ZÆLOCATE 
LINE 
SWAP 


| Retu rn | OK 


: ÆLAG 


#LEAD 
DUP >R 


+  C/L R> 


Return] OK 


2TS 


nn, 


CT mn, 


positionne le curseur sur le premier carac-) 
tère de la première ligne de l'écran courant) 


———n1n2 À partir de la position courante) 
du curseur, calcule le numéro de la ligne et) 
l'offset du curseur par rapport au début de) 

la ligne) 


——— adrn Abpartir de la position courante) 
du curseur, calcule l'adresse adr de la ligne) 
dans le SCREEN BUFFER, et l'offset par) 
rapport au début de la ligne.) 


——— adrn Abpartir de la position courante) 
du curseur, calcule l'adresse de la ligne) 
dans le SCREEN BUFFER, et l'offset par) 
rapport à la fin de la ligne.) 


paramètres par rapport au début de la ligne) 


sauvegarde l'offset 


ARR RERO ÈS AC A SD Tr re à a 


: M 
R# +! 
CR SPACE 
#LEAD TYPE 
EFH  EMIT 
#LAG TYPE 
#LOCATE 
DROP 
ok 
“ST 
DUP C/L + 
RZ | 
O0 M 
[Return] OK 
D 
SCR @ LIST 
0 M 
[Return] OK 
: ALINE 
#LAG  PAD 
MATCH 
(Return OK 


nn, 


LS 


mes, 


ns, 


mn, 


ns, 


nn, 


En, 


cn, 


COUNT( 


n ——— Avance le curseur de n caractères.) 
Affiche la ligne y compris le curseur pour) 
modifications) 


déplacement du curseur) 

nouvelle ligne) 

affichage du texte qui précède le curseur) 
affichage du curseur 'T') 

affichage du texte qui suit le curseur) 


affichage du numéro de ligne) 


n ——— Affiche le contenu de la n-ième ligne) 
et en fait une copie dans PAD) 


calcule l'offset de la n ième ligne dans) 
l'écran) 


pointe le curseur sur le début de la n ième) 
ligne) 


copie la n ième ligne dans PAD) 


édite la n ième ligne sur le périphérique de) 
sortie) 


Affiche à l'écran tout le contenu de l'écran) 
en cours de modification) 


liste l'écran courant) 


affiche la ligne contenant le curseur) 


——— f Recherche dans la LIGNE cou- 
rante à partir de la position courante) 
du curseur, une chaîne rangée dans PAD) 


prépare les paramètres de MATCH) 
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… Fliun 


. 
’ 


BEGIN 

3SFFH Rx @ < 
IF 

TOP 


PAD HERE C/L 
CMOVE 


O ERROR 
ENDIF 
1LINE 
UNTIL 


Return | OK 


L 2 


: DELETE 


9 TO 


>R 


ÆLAG + 

FORTH R — 
#LA G 

R MINUS R# +! 
#LEAD + 

SWAP  CMOVE 


R>  BLANKS 
UPDATE 
Return OK 


1 + 


nn, 


, 


nn, 


, 


(1 Recherche dans l'écran entier une) : N 
( chaîne rangée dans PAD. Affiche un ) 
( message d'erreur en cas d'échec,) FIND 
( sinon repositionne le curseur) 
0 M 
; K 
( teste la curseur par rapport à 1023) ne 
(_ si en dehors de l'écran) : EF 
( en haut à gauche) 
| 1 TEXT 
( déplace la chaîne vers HERE pour) Fu 
( l'afficher dans le message d'erreur) N 
ok 
: B 
( cherche dans la ligne) 
PAD Ce 
MINUS M 
Return! OK 
n ——— Supprime n caractères à partir de la) [Retum) . 
position du curseur et recompacte le texte) x 
dans la ligne) | 
; 1 TEXT 
sauvegarde le nombre de caractères à) 
supprimer) FIND 
fin de ligne) PAD Ca 
R copie le sommet de la pile des return) DELETE 
0 M 


Return] OK 


reculer le curseur den) 
nouvelle position du curseur) 


déplace le reste de la ligne pour la) 
suppression) 


met des blancs aux emplacements libérés) 


mise à jour du BUFFER) 


ln, mn, 


Trouve la prochaine occurence d'une chaîne déjà) 
dans PAD) 


recherche) 


affichage de la ligne en cas de succès) 


Trouve la première occurrence de la chaîne qui suit) 
dans l'INPUT STREAM) 


Ramène le curseur au début de la chaîne qui coïn-) 
cide avec une chaîne donnée) 


Ramène la longueur de la chaîne contenue dans) 
PAD) 


Recuie le curseur et réaffiche la ligne) 


Supprime le texte qui suit dans l'INPUT STREAM) 
transporter dans PAD) 

chercher dans l'écran) 

longueur de la chaîne à supprimer) 

suppression) 


affichage) 
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28% 


nn, 


LuLDime es les Lu. u5tères ue pUIS a pu-) 
sition courante du curseur jusqu'y compris) 
la première occurence du texte qui suit) 
dans l'INPUT STREAM) 


#LEAD + ( adresse courante du curseur) 

1 TEXT ( transport dans PAD) 

ILINE ( recherche dans la ligne) 

O= O ?ERROR ( erreursielle n'existe pas) 

#LEAD + SWAP — 1 preparer les paramètres pour DELETE) 
DELETE 

0 M 


Retur] ok 


1 TEXT PAD COUNT 
#LAG ROT OVER MIN ©R 


FORTH R 
Rx +! 
R — ZR 


DUP HERE R CMOVE 

HERE %ZLEAD + R> CMOVE 
R> CMOVE 
UPDATE 
0 M 

| (Return OK 


ns, 


Insertion dans le texte à la position) 
courante du curseur, de carac-) 
tères qui suivent dans l'INPUT) 
STREAM. Les caractères qui sor-) 
tent de la ligne sont perdus.) 


transport dans PAD) 


sauvegarder MIN(nb—car, pos—) 
curseur) 


copie de la pile des return) 
repositionner le curseur) | 
nombre de caractères à garder) 

déplacement temporaire à HERE) 


Ramener le texte) 


replacer la chaîne) 


D Re ann ere dt mr ne 


ANNEXE 3 
SOLUTION DES EXERCICES 


CHAPITRE 2: 


LE 


, 


La pile est vide. 


( 233354——— ) 
( 3215 ——— ) 
( 131518 ——— ) 


ab+cd++ 


ab+c/de +f»+ 
abc+/de+ac/*/ 
abc/x«da+bcd+/x+ 


CHAPITRE 3: 


1. 


(28teee) 
26e) 
[6 
( —20 ——— ) 
Erreur : pile vide 
( 123—-13—-1 ——— ) 
: EXO2A OVER + SWAP 2SWAP ROT ROT + x SWAP / 
: EXO2B ©R ©>R ROT OVER + ROT R>+ OVER * 

R> SWAP OVER / ROT 2SWAP + x SWAP /: 
: EXO2C 2DUP + >R ROT DUP >R + R> OVER *x R> 


2SWAP »*x +SWAP / 


22% 


b) 


b) 


5. à) 


b) 


Let 


: MINIMUM ({ adn ——— min ) 
7FFF  SWAP ({ ad/7FFFn ——— ) 
O DO ( admin ——— ) 
OVER ( ad min Val(ad) ——— ) 
MIN ( admin ——— ) 
SWAP 2+ SWAP ( ad+2 min ——— ) 
LOOP 
SWAP  DROP { min ——— ) 
: MAXIMUM ( adn ——— max ) 
FFFF  SWAP ( adFFFFn ——— ) 
O DO ( admax ——— ) 
OVER ( ad max vallad) ——— ) 
MAX ( admax' ——— ) 
SWAP 2+ SWAP ( ad+2 max ——— ) 
LOOP 
SWAP  DROP ( max ——— ) 


: SOUSTRACTION MINUS + 
: /MOD ©>R Ux R> U/MOD ; 


: OFILL ({ adn ——— ) 
O DO ( ad ——— ) 
O0 OVER ( adOad ——— ) 
| ( ad ——— ) 
2+ ( ad+3 ——— ) 
LOOP 
DROP bo 0 
. +1FILL ( adn——— ) 
O DO ( ad ——— ) 
1 OVER ( adiad ——— ) 
+| ( ad ——— ) 
2+ ( ad+2 ——— ) 
LOOP 
DROP ({ ——— ) 


Nous allons utiliser pour résoudre cet exercice l'algorithme d'Euclide 
qui s'écrit de la manière suivante : 


Soit à calculer le PGCD des nombres a et b. On effectue: 


a=b.q+r (division entière) 


On sait que rest inférieur à b. On peut donc écrire : 


b = r.q1l + ri 


et ainsi de suite, jusqu'à obtenir: 


Fn—1 = ln Qn+1 À ln+1 
avec fs 0 
On sait que le PGCD est alors r,. 


: PGCD 

SMUDGE 

DUP IF 
SWAP OVER 
/MOD DROP 
PGCD 
ELSE 
DROP 
THEN 

SMUDGE ; 


b) Pour le calcul du PPCM, on utilisera le résultat suivant: 


A x B — PGCD(A,B) x PPCM(A.B) 


: DIV 
DUP >R /MOD 
R> OVER 
IF 
46 EMIT 
4 O DO SWAP 10 » 
OVER /MOD 
48 + EMIT 
DUP IF 
ELSE LEAVE 
THEN 
SWAP 
LOOP 
THEN 


DROP DROP 
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w. . wi V2 
@ 
BEGIN 
OVER DR Z©R 
/MOD 
DUP IF 
Un — 
IF 
46 EMIT 
THEN 
48 + EMIT 
R> R> 
SWAP 1+ 
@ 
ELSE 
DROP DROP R> R> DROP 
IF ELSE 48 EMIT THEN 
1 
THEN 
UNTIL 
9. : DIV3 
0 
BEGIN 
OVER ©>R ZR 
/MOD 
IF 
@ 
ELSE 
DROP DROPR> R> DROP 
IF ELSE 48 EMIT THEN 
1 
THEN 
WHILE 


EE 


IF 46 EMIT THEN 
48 + EMIT 


2%6 R> . 


( abn ——— ) 
(nbr décimales) 
( ab ——— ) 
( bn —-—- } 
CR 


(Point décimal) 


GT 

( bn ——— ) 

({ rnb ——— ) 
( rbn+1———) 
( rbn+1 

false ——— ) 


(nee ) 
( Affichage O }) 
{ True ——— ) 


({ ab ——— ) 
( abn ——— ) 


( nbre décimales ) 


( ab ——— |} 
( bn ——) 
LA es) 
( bn ——— ) 


( rafalse ———) 


l'E) 


Eee) 
( Affichage O ) 
true ——— ) 


tn, 


tn, 


({ bn ——— ) 


nn 


({ rnb ——— ) 


raflag ——— ) 


Point décimal ) 


11. 


: CONV En ==) 


16 O DO 
| 15 — 2 ( n15—-12 ——-— ) 
SWAP  PUISS ( n2puiss(15—1) 
—— | 

OVER AND { nflag ——— ) 

O= «0= ( normalisation flag ) 

48 +  EMIT ({ n ——— ) 

LOOP 
DROP 
Le mot PUISS peut être défini comme suit: 
: PUISS ({ ab ——--—- 
apuiss(b) ) 
DUP O— 
IF 
DROP DROP 1 ( 1 ——— ) 
ELSE 
1 SWAP (ab ———) 
1 DO (al ——) 

OVER x ( a apuiss(1) ——— ) 
LOOP ( a apuiss(b) ——— ) 
SWAP  DROP ( apuiss(b) ——— ) 

THEN 


Nous allons utiliser pour ce faire la méthode du crible d'Eratostène. 
Elle consiste à construire un vecteur contenant tous les nombres de 
1 à 100. On parcourt ce tableau de 1 à 100. Lorsque l'on trouve un 
nombre valide, on le sort comme étant premier, et l'on invalide du 
vecteur tous ses multiples. La méthode d'invalidation consistera ici 
à remplacer la valeur par O0. Dans notre vecteur, nous stockerons les 
valeurs sur 1 octet. 


O VARIABLE ERATOS 98 ALLOT 


ERATOS ( Pfa(ERATOS) ——-— ) 
100 O DO | 
| OVER C! ( Ad) 
1 + 
LOOP 
DROP 
SET ERATOS 23] 


ONE NS ion eNaANt 1e iNOt iv—Iv UE qui invaliaera de ERATOS Définissons le mot POSITION qui recherche une chaîne de caractères dans une 
tous les multiples de n. autre. Il faut lui fournir l'adresse et la longueur de la chaîne recherchée et 
l'adresse et la longueur de la chaîne cible. 


: N—MUL ({ n ——— ) 
101 OVER {n101n ——) 
DO : TESTE ({ adnad-cn-c ———f) 
| 1 — ERATOS  ( ni-1ad ——— }) SMUDGE 
+ OT es ROT ( adad-cn-cn——— ) 
O SWAP Cl! { n —— ) 2DUP >= ÏF 
DUP ROT  ROT 
+LOOP 20OVER 2OVER 
DROP DROP RE ({ adn ad-cn-cf ——— ) 
ROT 2DUP 
: PREMIER EPS 7 es. ( ad ad-c n-c n ——— ) 
ERATOS 1 . de) de 
ROT —1 ( ad n ad-c+1 n-c—1 ——— ) 
101 3 DO 
TESTE 
TU ('Adiet = 9 
OVER + C ({ adn ——— } 
2DROP 
no 2DROP O 
DUP . N—-MUL ( ad ———) 
ELSE THEN 
DROP ( ad ===) ELSE 
THEN DROP ROT 
LOOP ROT 2DROP ad == } 
DROP lose) THEN 
ELSE 
2DROP 2DROP O (O——— ) 
THEN 
12. Définissons d'abord deux vecteurs: : SMUDGE 
O VARIABLE 
ALPHABET ne 
25 ALLOT 


1 ALPHABET 27 TESTE 
DUP IF ALPHABET — 


ainsi : t molir de lettres: 
insi qu'un mot pour les remp DUP 6 < IF 


: MET 1 VOY +! 
[COMPILE] ‘ ( Pfa ——— ) DROP 
32 WORD ELSE 
HERE COUNTI( Pfa Hereti Long ——— ) 26 < ]|F 
>R SWAP R>( Pfa Here+1 Long ——— }) 1 CON +! 
CMOVE ELSE 
: 1 BLA +! 
: | THEN 
_ELSE 
DROP 25 9 


160 THEN 


Ad + 


: COMPTE er . L : à 
à ee | | | FES  OBRANCH ( Pour le déroutement ) 
TIB @ IN @ + n | ( Pour calcul de l'otfset ) 
BEGIN | ( Réservation cellule ) 
DUP Ca 
WHILE IMMEDIATE 
DUP MODIF 1+ | 
REPEAT | : THEN (Ad); 
mel VOY ? CON ? BLA ? ae ( Adr. absolue déroutement }) 
SWAP : ( Adr relative déroutement } 
( Stocke offset OBRANCH ou 
BRANCH ) 
IMM 
CHAPITRE 6: SL 
| : ELSE 
( Adr —— Adjr 
1. a) & , { n ———-) COMPILE  BRANCH TR ) 
HERE ! HERE © , ( Adr Here —— 
co el ( Here Adr — _ | 
[ COMPILE | THEN( THEN est immédiat 1 
b) :C, ({ n ——— }) | 
HERE C! IMMEDIATE 
1  ALLOT 
2. Le but du mot COMPILE est de différer la compilation au moment de 


l'exécution. Le cfa du mot qui suit COMPILE est alors placé dans la 
première cellule libre du dictionnaire. On se rappelle de plus que, 
au moment de l'exécution de COMPILE, le pointeur d'interprétation 
se trouve sur la pile de Return. 


: COMPILE | 
R> ( Pointe sur le mot qui suit }) 
DUP 2+ >R { Incrémente IP )}( Ad ——— }) 


@, ( Compile le cfa du mot }) 


ALLO 7 4.) 
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| 25, 199 = 38, 202 
# 57, 199 > 38, 203 
#> 57, 199 SIN 203 
#S 57, 199 >R 29, 203 
89, 108, 110, 199 ? 25. 203 
( 12, 200 ?DUP 203 
» 15, 17, 31, 39, 200 & 25, 203 
» 32, 200 ABORT 99, 203 
MOD 32, 200 ABS 32, 203 
+ 15:17 31. 39 200 AGAIN 46, 107, 110, 216 
+1 200 ALLOT 122, 203 
+LOOP 46, 200 AND 40, 203 
78, 200 ASSEMBLEUR 21, 77, 214 
_— 15,31, 200 BASE 27, 203 
_TRAILING 56, 201 BEGIN 46, 47, 48, 106, 203 
14, 201 BLK 204 
"201 BLOCK 204 
/ 15,31, 201 BRANCH 106 
/MOD 31, 201 BUFFER 204 
O< 38, 201 C, 78,110, 217 
O= 38, 39, 201 C! 26, 204 
O> 38, 201 C 26, 204 
OBRANCH 106 CFA 90 
1+ 33, 201 CMOVE 204 
l= 133 201 COLD 99 
21 212 COMPILE 92, 110, 204 
2&@ 212 CONSTANT 13, 26, 119, 204 
2+ 33, 202 CONTEXT 137, 205 
2. 33:20? CONVERT 205 
2CONSTANT 213 COUNT 53, 205 
2DROP 29,213 CR 45, 205 
2DUP 29,213 CREATE 205 
2OVER 29,213 CURRENT 137, 205 
2ROT 29, 213 D+ 33, 205, 213 
2SWAP 29,213 D ‘33,213 
2VARIABLE 213 _ D. 34,213 
12.202 DR 213 
. 12, 202 DO= 213 
CODE 77,214 D< 39, 205, 213 
< 38, 202 | D= 39,214 
<# 57, 202 DABS 34, 214 
<BUILDS 117,216 DMAX 34,214 7 4s 


ut 


DMIN 34, 214 
DNEGATE 34, 205, 214 
DU< 39, 214 

DECIMAL 25, 205 
DÉFINITIONS 144, 205 
DEPTH 205 

DO 43, 110, 206 
DOES> 117, 206 

DP «& 122 

DP! 122 

DROP 28, 206 

DUP 28, 206 

EDITEUR 21; 727277 
ELSE 41, 206 

EMIT 54, 206 
EMPTY-BUFFERS 72, 99, 206 
EXECUTE 93, 131, 206 


EXIT 206 
EXPECT 50, 207 
FILL 207 
FIND 207 


FLUSH 72, 247 
FORGET 12, 207 
FORTH 24207 
HERE 27,207 
HEX. 25;:52:.217 
HOLD 57, 207 


| 207 

IF 41, 208 

IMMEDIATE 106, 113, 208 
J 208 


KEY 49, 208 
LEAVE 46, 208 
LFA 90 

LIST 72, 208 
LITERAL 93, 208 
LOAD 72, 209 
LOOP 43, 110, 209 


M+ 39 
M/ 35 
My 35 
Mx/ 35 


MAX 32, 209 
MIN 32, 209 
MOD 31, 209 
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cut 


Dépôt légal: Août 1983 
N° d’Éditeur: 3991 


MOVE 209 
NEGATE 32, 209 
NFA 90, 112 
NOT 40, 209 


OR 40, 209 

OVER 28, 209 
PAD 209 

PICK 210 

QUERY 210 

QUIT 99, 100, 210 
R > 29, 210 

RG& 210 

REPEAT 48, 210 
ROLL 210 


ROT 28,210 
SAVE-BUFFERS 210 

SCR 210 

SIGN 58, 210 

SMUDGE 80, 112, 114, 154 
SPACE 53, 210 

SPACES 55, 210 


STATE 
SWAP 28,211 
S + D 34 


TEXT 53, 219 
THEN 41,211 
TYPE 55:27 


UD. 57 

Ux 35,211 

U. 33, 211 
U/MOD 35, 211 
U< 38,211 
UNTIL 47,211 
UPDATE 


VARIABLE 13, 26, 119, 211 
VLIST . 19, 141, 220 
VOCABULARY 136. 139, 212 
WARM 99 

WHILE 48, 212 

WORD 52,212 + 

XOR 40,212 

[ 108, 212 

[COMPILE] 107, 212 

| 108 


45 FIN 


